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PREFACE 


The IBM 1130 Disk Monitor System, a 

collective name for five distinct but interdependent 
programs ~ Supervisor, Disk Utility, assembler, 
FORTRAN, and subroutine library - is a powerful, 
combined operating and programming system. 


This system should be distinguished from 
IBM 1130 Disk Monitor System, Version 2, 
which is a separate system. All references 
to the Monitor System made in this manual 
concern Version 1. Readers desiring information 
on Version 2 are referred to its pertinent 
manuals. 


The programs that make up the Monitor System 
use advanced programming techniques, including 
relocatable subroutines, highly compressed formats 
for data and programs, and flexible input and output 
command structures which facilitate data conversion 
operations. A unique feature of the 1130 Monitor 
System is the "floating" boundary between the user 
program /data file area and the disk Working 
Storage area. As information is added to disk 
storage in the User area, the Working Storage 
area is decreased in size. Conversely, if a 
program or data file is deleted from disk storage 
User area, the remaining programs are packed, 
and the disk Working Storage area is increased 
in size. 


The following publications may assist the user 
in utilizing the system: 


Third Edition 


e IBM 1130 Functional Characteristics, Form 
A26-5881 


e IBM 1130 FORTRAN Language, Form C26- 
5933 


e IBM 1130 Assembler Language, Form C26-5927 
e IBM 1130 Subroutine Library, Form C26-5929 


Throughout this publication all references to 
locations in storage are in hexadecimal unless 
otherwise noted; therefore, the subscript 16 
has been omitted. 


Machine Requirements 


The minimum machine features and units 
required for operation of the Monitor System are: 


e IBM 1131 Central Processing Unit, Model 2, 
with a minimum of 4096 words of core storage 


e IBM 1134 Paper Tape Reader and an IBM 1055 
Paper Tape Punch, or an IBM 1442 Card Read 
Punch, 


If both the 1442 Card Read Punch and 1134/1055 
paper tape units are included, the 1442 Card Read 
Punch will be the principal I/O device. If an 1132 
Printer is included, it will be the principal print 
device; otherwise the console printer will be the 
principal print device. 


This is a major revision of, and obsoletes, C26-3650-1 and Technical 
Newsletter N26-0540. This manual is updated to correspond with 
Version 1, Modification Level 6, of the IBM 1130 Disk Monitor System. 
Changes to the text are indicated by a vertical line to the left of the 
change; revised illustrations are denoted by a bullet (e) to the left of 


the caption. 


Specifications contained herein are subject to change from time to time. 
Any such change will be reported in subsequent revisions or Technical 


Newsletters. 


Copies of this and other IBM publications can be obtained through 

IBM Branch Offices. A form has been provided at the back of this 
publication for reader's comments. If the form has been detached, 
comments may be directed to IBM Nordic Laboratory, Box 962, Lidingo 9, 


Sweden. 


® International Business Machines Corporation 1968 
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The 1130 Monitor is a disk-oriented system that 
allows the user to assemble, compile, and/or 
execute individual programs or a group of programs 
with a minimum of operator intervention. Jobs to 
be performed are stacked and separated by control 
records that identify the operation to be performed. 
The Monitor System consists of five distinct 
but interdependent programs (see Figure 1): 


e Supervisor program 
_@ Disk Utility Program 
e Assembler program 
@e FORTRAN compiler 
e Subroutine library 
The Supervisor program provides the necessary 
control for the stacked-job concept. It reads and 


analyzes the monitor control records, and transfers 
control to the proper program. 
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1130 1130 1130 
FORTRAN Assembler Disk Utility Subroutine 
Compiler Program Library 


Figure 1, 1130 Disk Monitor System 


IBM 1130 DISK MONITOR SYSTEM - INTRODUCTION 


The Disk Utility Program is a group of routines 
designed to assist the user in storing information 
(data and programs) on the disk, and retrieving 
and using the information stored. 

The assembler program converts user-written 
symbolic-language source programs into machine- 
language object programs. 

The FORTRAN compiler converts user-written 
FORTRAN-language source programs into machine- 
language object programs. 

The subroutine library contains subroutines for 
data input/output, data conversion, and arithmetic 
functions, 

The Monitor System coordinates program 
operations by establishing a communications area 
in memory which is used by the various programs 
that make up the Monitor System. It also guides 
the transfer of control between the various 
monitor programs and the user's programs. 
Operation is continuous and setup time is reduced 
to a minimum, thereby effecting a substantial 
time saving and allowing greater programming 
flexibility. The complete Monitor System resides 
on disk storage. Only those routines or programs 
required at any one time are transferred to core 
storage for execution. This feature minimizes 
the core storage requirements and permits 
segmenting of long programs. 

In addition to decreasing the amount of 
operating time, the 1130 Disk Monitor System 
significantly reduces the amount of programming 
to be done by the user. This is made possible 
through the sharing of common subroutines by 
unrelated programs. For example, input/output 
or conversion operations are required by most 
user programs, regardless of whether the programs 
are written in the assembler language or in 
FORTRAN. IBM provides a library of subroutines 
as an integral part of the Monitor System. 

The assembler and FORTRAN compiler 
facilitate development of a library of user 
programs. The object programs can be stored 
on cards or paper tape, as is customary in 
installations without disk storage. However, with 
disk storage, programs can be stored directly 
on disk without the necessity of designating actual 
storage locations, remembering or documenting 
the storage assignments, or updating the 
storage assignments and documentation as 
conditions change. The disk-stored programs 
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and data are referred to by name when called 
for use. The Monitor System, through the use 
of a table known as the Location Equivalence 
Table (LET), can locate any user program, 
subroutine, or file by a table search for the 
name. Stored with the name is the amount of 
disk storage (in disk blocks)* required by the 


*There are 16 disk blocks per sector; each disk 
block contains 20 data words (refer to Appendix 
C). 


program or data. 

Any program that is added to the user's disk- 
stored programs is usually placed at the end of 
the other programs. If a program is deleted, the 
remaining programs are usually packed for 
effective utilization of disk storage. This packing 
facility is described later in this publication. 


Disk Storage is divided into three logical areas: 
IBM Systems area, User Storage area, and 
Working Storage area. The contents of these 
three areas, described in detail in subsequent 
paragraphs, are shown in Figure 2. The sectors 
and cylinders that these areas occupy are shown 
in Table 1. Appendix C shows disk storage unit 
conversion factors. 


IBM SYSTEMS AREA 


This area contains the integral parts of the 1130 
Disk Monitor System: the Supervisor program, 
Disk Utility Program (DUP), FORTRAN 
compiler, and the assembler. The FORTRAN 
compiler and/or the assembler can be deleted 
at the user's option. 


Supervisor Program 


This program supervises all monitor operations 
and performs the control and loading functions 
for the user programs and monitor programs 
(FORTRAN, Assembler, and DUP). The 
Supervisor is directed by monitor control records 


in the stacked input. Included within the Supervisor 


is the Skeleton Supervisor, which resides in core 


during monitor operation and provides the communica- 


tions link between the monitor programs and the 
user's programs. 


Sector 





Supervisor FLET 


(includes Fixed 
Area (if 
defined) 


(if Fixed 
Area is 


identification, | DUP | FORTRAN | Assembler 


cold start, ; 
DCOM) defined) 


DISK STORAGE LAYOUT 


Table 1. Disk Storage Allocation 


Us Total Sectors Cylinders 
z Sectors | Occupied Occupied 
1 0 0 


Identification 











Total 
Cylinders 
1/8 






Cold Start 
DCOM 
Supervisor 
DUP 
FORTRAN 
Assembler 
CIB 
LET 













2-7, 9-55 
56-127 
128-231 
232-271 
272-295 
296-303 
304-1599 




























Remainder of 
User Area and 
Working Storage 






Disk Utility Program (DUP) 


DUP is a group of routines provided by IBM that 
aid the user in the day-to-day operation of his 
installation. By means of these routines, certain 
frequently required operations, such as storing, 
deleting, and dumping data and/or programs from 
disk storage, can be performed with minimum 
programming effort by the user. 


Supervisor Control 
Record Area 


{ User Area 
a ——__x“ 





User 
IBM Programs 
Subroutines | and Data 
Files 





IBM 


Systems Area 


Figure 2. Disk Storage Layout 


User Storage Area 


Working Storage 
Area 


Disk Storage Layout 3 


FORTRAN Compiler 


The compiler translates programs written in the 
FORTRAN language into machine language, and 
provides for calling the necessary arithmetic, 
functional, conversion, and input/output 
subroutines at execution time. 


Assembler 


The assembler converts source programs written 
in the assembler language into machine language 
object programs. The conversion is one-for-one, 
that is, the assembler normally produces one 
machine language instruction for each instruction 
of the source program, 


USER STORAGE AREA 
This area consists of the following: 


e A Fixed area (optional) for storing core image 
programs and data. If a Fixed area is 
defined, there will also be a Fixed Location 
Equivalence Table (FLET). 


e The Core Image Buffer (CIB) 
e The Supervisor Control Record Area 
e The Location Equivalence Table (LET) 


e A User area for storing IBM-supplied 
subroutines, user-written programs, and 
data files 


Core Image Buffer (CIB) 


Those parts of a core load (main program and 
associated subprograms) that fall below core 
location 4096; are put in the Core Image Buffer 
(CIB) as they are prepared for execution or for 
storing in core image format by the Loader (refer 
to DUP Control Records, *STORECI). When all 
parts of program have been processed, either the 
contents of the CIB are read back into core 
storage by the Loader, which overlays itself in 
the process, or DUP is recalled from disk to core 
to complete the *STORECI operation, using the 
CIB as source of any parts of the core load which 
are to reside below core location 40969. 


The CIB is also used by the Supervisor to 
save core locations 256;9-409519 on every CALL 
LINK. Before each link is executed, the Loader 
restores any part of this area which has been 
included in the COMMON defined by the called 
link. 


Supervisor Control Record Area 


This area is used by the system to store 
information for use by the Loader (refer to 


Supervisor Control Records). 


Location Equivalence Table (LET) 


The Location Equivalence Table (LET) serves 
functionally as a ''map'' for the IBM subroutines, 
user's programs, and data files. Each subroutine, 
user's program, or data file that is stored on 

disk has at least one entry in the table. The table 
entry contains the name and disk block length of 
the subroutine, program, or data file. Each 

entry point in a subroutine requires a separate 
entry in LET. The user may print the contents 

of LET by using the DUP control record DUMPLET 


(refer to DUP Control Records). 
User Area 


As each user-written program or data file is 
added to the User area, the space available for 
the Working Storage area decreases. Conversely, 
if a program is deleted, the Working Storage area 
increases by the amount of space the program 
formerly occupied in the User area. For 
example, user-written programs A, B, and C 

are stored on disk as follows: 


CIB | LET | IBM-supplied | Program } Program | Program | Working Storage 
subroutines A B Cc Area 


If a program, D, is created, it would be stored on 
disk causing the Working Storage area to contract: 


CIB | LET | IBM-supplied | Program | Program | Program | Program | Working 
subroutines A B Cc D Storage 
Area 


If Program A is now deleted, Programs B, C, and 
D would be moved up, maintaining a packed 


condition in the User area while expanding the 
Working Storage area: 


CIB | LET | IBM-supplied | Program | Program | Program | Working Storage 
subroutines B Cc D Area 


NOTE 1: Core Image programs and data files are 
always put on disk at the beginning of a sector, and 
remain at the beginning of a sector even after 
packing. Disk System format programs start at 
the beginning of a disk block. 


NOTE 2: The Working Storage area always starts 
at the beginning of a sector; therefore, it might 
not expand or contract by the exact size of the 
program stored or deleted. 


IBM-Supplied Subroutine Library 


The IBM-supplied subroutine library contains 
input/output, data conversion, arithmetic and 
functional, and selective dump subroutines. 
These subroutines are generally available for 
use with both the assembler and the FORTRAN 
compiler. Operating procedures are described 
in a subsequent section of this manual. Appendix 
E contains a complete list of all IBM-supplied 
subroutines. 


Flipper Routine 


The subroutine library includes a Flipper routine, 
which is a part of the core load for those user's 
programs that use LOCAL (Load-on-Cail) 
routines (refer to Supervisor Control Records). 
When a LOCAL routine is called, control is 
passed to the Flipper routine, which reads the 
LOCAL into core storage if it is not already in 
core and transfers control to it. All LOCALs 
in a given core load are executed from the same 
core storage locations; each LOCAL overlays 
the previous one. All LOCALs required by a 
program are relocated and stored by the Loader 
in Working Storage immediately following the 
last defined file, if any. 


Fixed Area 


The Fixed area is an optional area that the user can 
define to enable him to store programs and data files 
at fixed disk locations. The user can define the 

size of the Fixed area to be a whole number of 


cylinders, with a minimum of two, and he can 
increment (but not decrease) the size of the Fixed 
area by a whole number of cylinders at any time. 
Unlike in the User area, when a program or data file 
is deleted from the Fixed area no packing occurs. 
Thus, programs or data files in this area can be 
referenced by absolute sector addresses, since 
they will not be moved. The Fixed area, if any 
has been defined, requires a LET of its own, 
i.e., a Fixed Location Equivalence Table (FLET). 
The contents of FLET may also be printed by 
using the DUP control record DUMPLET. The 
Fixed area is used only for the storage of core 
image programs and data, and not for Disk 
System format programs or for working 

storage, 


WORKING STORAGE AREA 


The Working Storage area is used for temporary 
storage. Most of the area is available to the 
user during execution of his programs. The 
Loader stores LOCALs (Load-on-Call routines) 
and SOCALs (system overlays) in this area, 

and it is also used extensively by the monitor 
programs (see Working Storage Indicator Word). 
For example, the assembler uses this area for 
temporary storage of a program during the 
assembly process; at the conclusion of an 
assembly or compilation, the object program is 
in the Working Storage area. 

The assembler requires 32 sectors of Working 
Storage for possible symbol table overflow 
during an assembly, plus whatever additional 
Working Storage is required for disk output 
(compressed source statements in Pass 1, 
object program in Pass 2). Since an assembly 
requires at least one sector for disk output, the 
assembler checks for the availability of 33 
sectors of Working Storage before beginning to 
assemble the source program. If at least 33 
sectors are not available, an assembler error 
message is printed (refer to Appendix A), the 
assembly is terminated, and control is returned 
to the Supervisor. 

During a FORTRAN compilation, FORTRAN 
requires the amount of Working Storage 
necessary to contain the compiled program, 


FILE PROTECTION 


The 1130 Disk Monitor System controls file 
protection. All Disk I/O subroutines furnished by 
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IBM check the address of the sector on which they whenever a program is added to the User area. 


have been instructed to write to ensure that it is Only data files which have been created in or 
greater than the file protection address in COMMA moved into Working Storage can be written into 
(refer to Appendix F), with the exception of the by assembly-language programs (unless the 
Write Immediate function (described in IBM 1130 Write Immediate function is used). FORTRAN 
Subroutine Library, Form C26-5929). The file programs may write directly into User and 
protection address, which is equal to the starting Fixed areas (refer to *FFTLES under Supervisor 
address of Working Storage, is updated by DUP Control Records). 


The Supervisor program performs the control and 
loading functions for the Monitor System. Monitor 
control records, which are used to direct the 
sequence of jobs without operator intervention, are 
included in a stacked input arrangement and are 
processed by the Supervisor program. The 
Supervisor program decodes the monitor control 
record and calls the proper monitor program to 
perform the desired operation. <A typical sequence 
of operations is listed below. The programs in 
parentheses would be called by the Supervisor to 
perform the particular operation: 


1. Compilation of a FORTRAN program (FORTRAN 
compiler) 

2. Storage of the compiled program on disk (Disk 
Utility Program) 

3. Assembly of a symbolic program (Assembler) 

4, Storage of the assembled program on disk 
(Disk Utility Program) 

5. Execution of a disk-stored program (Loader) 

6. Punching of a disk-stored program into cards 
(Disk Utility Program) 


The Supervisor itself is a group of several 
distinct but closely related routines: 


e Skeleton Supervisor 
e Monitor Control Record Analyzer 
e Loader 


e Cold Start Routine 


SKELETON SUPERVISOR 


The Skeleton Supervisor provides the communica- 
tions link between the monitor programs and the 
user's programs, i.e., it contains the necessary 
logic to conduct the transition from one job to 
another. The Skeleton Supervisor is read into 
core storage when the operation of the monitor is 
initially started by means of the Cold Start Routine 


(refer to Cold Start Operating Procedure), which 


occupies sector 1. The Disk Communications Area 


SUPERVISOR PROGRAM 


(DCOM), which contains addresses and indicators 
necessary for the operation of the monitor, is 
read into core initially with the Skeleton Supervisor. 
The in-core communications area (referred to as 
COMMA) is restored from DCOM whenever a Cold 
Start procedure is initiated or aJOB record is 
encountered (refer to Monitor Control Records). 
When COMMA is restored there will be no usable 
program in Working Storage. Appendix F lists 

all the core locations and information contained in 
COMMA. 


MONITOR CONTROL RECORD ANALYZER 


This routine analyzes the monitor control records, 
prints out the information contained in the control 
record, and calls the appropriate program: Disk 
Utility Program, Assembler, FORTRAN compiler, 
or Loader. 

The following three formats are used by the 
Monitor System to store information on disk 
(refer to Appendix B): 


e Disk Core Image Format (DCI) 
e Disk System Format (DSF) 


e Disk Data Format (DDF) 


MONITOR CONTROL RECORDS 


Input to the Supervisor consists of one or more 
job decks, each preceded by a JOB monitor 
control record (see Figure 3). The character 
codes recognized by the Supervisor are listed in 
Appendix D. Although the monitor control records 
are described in terms of cards, these records 
can be entered in card image form from paper tape 
or the keyboard/console printer. 

The JOB control record defines the starting and 
ending points of the job; however, the total job can 
consist of many subjobs. The assembler, 
FORTRAN compiler, Disk Utility Program, and 
user's programs can be called for operation by 
the ASM, FOR, DUP, and XEQ control records, 
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Working Storage 
Subjob Decks 


User Storage 











Assembler 
FORTRAN 
DUP 
FORTRAN Supervisor 
Source Program 
Pere ee 
Supervisor 
Program 
Assembler 
Source Program 
Cold Start Card 
(see Cold Start 
Operating Procedure) 
@ Figure 3. Processing Input Data Under Supervisor Control 
respectively. These are each considered Supervisor then passes records until it 
individual subjobs. The successful completion of encounters a monitor control record. 
the total job depends on the successful completion All monitor control records have the following 
of each individual subjob within the job. Some format: 
subjobs are not attempted if the preceding subjobs 
have not been successfully completed. Columns 1-2: // (slashes, to identify monitor 
When a monitor control record is read, the control record) 
system program required to do the subjob is 3: b (blank) 
read into core storage from disk storage. The 4-7: Pseudo-operation code (left- 
program then processes input until the end of the justified) 
subjob deck is reached, a new monitor control 
record is encountered, or an error occurs. The following paragraphs contain a list of the codes 
Monitor error messages are described in and their operations. The monitor control records 
Appendix A. are summarized in Table 2. 
Every job is assumed to begin with no 
programs in Working Storage (see Working NOTE: Comments are permitted in unspecified 
Storage Indicator Word). columns in all monitor control records. A "b" 
Control can be returned to-the Supervisor by appearing in a column means that the column must 
manually branching to core location 0038, The be blank. 


Table 2. Summary of Monitor Control Records 


comments 


B T — Disk Storage Label 


M 


—— Program Name 


JOB 


This record causes initialization and termination 
of a job sequence and restores COMMA from 
DCOM. The format is 

cc 4 6 7 8 9 10 It 12 13 14 15 16 
J Bb T I D E N T b 


1 2 3 5 
/ / »b O 
The letter T in column 8 indicates temporary 

mode. In this mode, programs or data files stored 
in the User area by DUP are automatically deleted 

at the end of the current job. DUP operations 

which are permitted in temporary mode are 
described in Table 5. 

If columns 11-15 contain a disk storage identifica- 
tion, this identification is compared with that which 
is written on the first sector of the disk cartridge 
to determine that the desired cartridge is mounted. 


If the identification is not the same, the Supervisor 
waits for operator intervention (see Appendix A, 


Table A-5, Monitor Supervisor Wait Locations). 
identifier must be left-justified in its field. 

This record also causes a skip to channel 1 
before it is printed on an 1132 Printer. 


The 


ASM 


This record causes the assembler to be read into 
core storage for execution. The format is 


cc 


N= 
Nob 
oman) 
>A 
Nan 
zo 





Initialize a job sequence 
Read assembler into core for execution 
Read FORTRAN into core for execution 


Halt until START is pressed 


Change control record input from principal input unit 
to keyboard/console printer for succeeding monitor 
control records 


Change input mode from keyboard/console printer 
back to the principal unit for succeeding monitor 
control records 


Read DUP into core for execution 


— Count — Read and transfer control to mainline program 


The assembler control records and source 
statements for the program to be assembled must 
follow the ASM control record. 


FOR 


This record causes the FORTRAN compiler to be 
read into core storage for execution. The format 
is 

cc 1 23 4 5 6 
J {/b FOR 
The FORTRAN control records and source state- 
ments for the program to be compiled must 
follow the FOR control record. 


PAUS 





This record causes a wait to allow the operator to 
make setup changes (see Appendix A, Table A-5, 


Monitor Supervisor Wait Locations). The format is 
cc 4 7 
P 


LB; A Bg 
Pf PROS 


The monitor operation proceeds as soon as 


PROGRAM START is pressed. 


TYP 


This record changes the control record input from 
the principal input unit to the keyboard/console 
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printer for succeeding monitor (only) control 
records. The format is 

cco 123 45 6 
ff be YP 
TEND 


This record changes the input mode from the 
keyboard/console printer back to the principal 
input unit for succeeding monitor control records. 
The format is 


cc 


7 w& 
4h 
mu 


No 
NL 
Zon 
ON 


DUP 


This record causes the Disk Utility Program to be 
read into core storage for execution. The format is 


cc 


N= 
“Nb 
ow w 
ot 
CH 
OO 


Control records for the Disk Utility Program must 
follow the DUP control record. 


XEQ 


This record causes the Loader to load a specified 
mainline program into core storage and to transfer 


control to it. The format is 


7 10 1 


1234567891011 1 
//b’XE QbXX X X 


21 
X 


cece 


14 15 16 17 18 19 20 
L 


3 
b Y ¥ Z b 


The mainline program XXXXX must be left- 
justified in columns 8-12. If XXXXX is in Disk 
System format, the Loader converts it to Core 
Image format. If columns 8-12 are blank, the 
mainline program presently stored in Working 
Storage (by FORTRAN, DUP, or the assembler) 
is converted and read into core and executed. 

A core map is printed during conversion if 
column 14 contains an L and the program is in 
Disk System format. This map includes the core 
loading address of the mainline program, the 
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names and execution addresses of all subroutines 
and subprograms included in the load, file 
allocations, if any, giving file number, sector 
address, and number of sectors in the file. Also, 
if L is specified, a core map is printed for any 
DSF program linked to under this execution. 

Columns 16-17 must contain the count of 
LOCAL, NOCAL, and FILES records which follow, 
if any (refer to Supervisor Control Records). This 
count is decimal, right-justified. 

DISK 0, 1, or N will be loaded with the program 
if column 19 contains 0, 1, or N, respectively. Any 
other character (including blanks) causes a special, 
shorter disk routine (DISKZ) to be loaded. This 
special version is intended for all FORTRAN pro- 
grams; it is also intended for assembly-language 
programs which do not use the disk. 


Comments 


This record provides comments in the listing. It 
may not immediately follow an XEQ, DUP, ASM, 
or FOR record. The format is 


ce 4 5-80 
* 


1 2 3 
/ /b comments 


SUPERVISOR CONTROL RECORDS 


LOCAL 


LOCAL is an acronym denoting routines specified 
by the user to be loaded into a LOCAL overlay area 
as they are called. All subroutines desired by the 
user to be loaded on call at execution time must 

be designated by LOCAL records following the 

XEQ monitor control record. The format is 

as follows: 


cc 1 
*LOCALML1,SUB1,SUB2 


where ML1 = name of a mainline program to be 
executed, and SUB1 and SUB2 are subroutines in 
the mainline program. 


Each mainline program (in the same XEQ subjob) 
that calls a subroutine to be loaded on call must 

have its own LOCAL record. The same mainline 
program may have more than one LOCAL record. 


For example: 


*LOCALMLI,SUBI , SUB2 
* LOCALML2,SUB3, SUB4 or 
* LOCALML1, SUBS 


*LOCALML1,SUB1,SUB2,SUB5 
*LOCALML2,SUB3,SUB4 


If the record ends with a comma, the next 
record is treated as a continuation. The mainline 
name is not repeated in a continuation, e.g., 


*LOCALMLI,SUBI, SUB2, 
* LOCALSUBS 


If the mainline program is executed from Working 
Storage, the mainline name must be omitted by 
putting a comma in column 7, e.g., 


*LOCAL,SUB1, SUB2 


No embedded blanks are allowed in a LOCAL record. 


NOCAL 


NOCAL is an acronym denoting routines which, 
although not called anywhere in the core load, are to 
be included in the load. Most NOCALs would 
probably fall into one of the following categories: 

(1) debugging aids such as dump and trace routines 
which the operator branches to manually, and (2) 
interrupt service routines. 

All subroutines which are to be loaded but are not 
called at execution time must be designated by 
NOCAL records following the XEQ monitor control 
record. The format is as follows: 


cc | 


*NOCALML1,SUBI, SUB2 


NOCAL records are governed by the same rules and 
restrictions as LOCAL records. 


NOTE: The user must observe the following rules 
in LOCAL and NOCAL records: 


1. No routine can appear in a LOCAL record if it 
causes any of the other routines appearing 
in LOCAL records (for the same mainline pro- 
gram) to be called before the first LOCAL has 
returned control to the calling routine. Thus, 
a LOCAL cannot call another LOCAL, nor 
can it call a routine which causes a second 
LOCAL to be read into core and executed. 
For example, if A calls B and Bcalls C, 
and A is a LOCAL, then neither B nor C can 


appear on a LOCAL record for the same 
mainline program. 

2. Ifa given routine is designated a LOCAL, 
and the System Overlay scheme is employed, 
then this routine will be a LOCAL even though 
it might have been included in one of the 
System Overlays (SOCALs). 

3. No program which uses LOCALs or NOCALs 
can be stored in Disk Core Image Format 
(DCI). 

4. Ifa subroutine is designated a LOCAL, it will 
be loaded as a LOCAL even if it is not 
referenced anywhere in the core load. 

5. The LOCAL information pertaining to any 
given XEQ record cannot exceed 640 words, 
counting all LOCAL names on the LOCAL 
records as two words and mainline program 
names as three words. The same rule 
applies to NOCAL information, 

6. Only types 3, 4, 5, and 6 subroutines can appear 
on LOCAL and on NOCAL records (see Disk 
System Format, Program Types, in Appendix B), 

" All conversion tables, e.g., EBPA, HOLTB, 
may not be used as LOCALs, 


FILES 


File numbers specified in FORTRAN DEFINE FILE 

statements can be equated to: 

1. names of data files in the User area or Fixed 
area at execution time by means of a FILES 
record entered after an XEQ monitor control 
record or 

2. names of data files in the Fixed area by means 
of a FILES record entered after a DUP control 
record STORECI. 


The format is as follows: 


cc |] 


*FILES(FILEN, NAMEN), (FILEM, NAMEM) 


where FILEN and FILEM are the file numbers 
specified in FORTRAN DEFINE FILE statements, 
and NAMEN and NAMEM are names of disk storage 
data files which have been previously defined in a 
DUP control record. 

No embedded blanks are allowed. If the record 
ends with a comma, the next record is treated as 
a continuation, e.g., 


*FILES(FILEN, NAMEN), 
*FILES(FILEM, NAMEM) 


NOTE: The FILES information for a given XEQ 
record cannot exceed 640 words, counting the 
file numbers as one word and the file names as 
two words. 
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Any number of LOCAL, NOCAL, and FILES 


records can follow the XEQ monitor control 
record, but each type must be grouped 
together, e.g., 


*LOCAL 
*LOCAL 
*LOCAL 
*NOC AL 
*NOCAL 
*FILES 


*FILES 


The following is not permitted: 


*LOCAL 
*NOCAL 
*LOCAL 
*FILES 

*NOCAL 


STACKED INPUT ARRANGEMENT 


Input to the Monitor System consists of control 
records, source programs, object programs, and 
data arranged logically by job. 


The following points must be considered when 
arranging the input for any job. 


1. 
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Any number of comments records can be 
inserted in front of (but not immediately 
following) DUP, ASM, FOR, or XEQ 
monitor control records. 

Any records other than monitor control 
records which remain after the execution of 
an ASM, FOR, or XEQ subjob are passed 
until the next monitor control record is 
read. After a DUP operation, records are 
passed until either a monitor control record 
or another DUP control record is read. 

If an error is detected in an assembly, 
FORTRAN compilation, or during loading 
from Disk System format, the resulting 
object program or any programs that follow 
within the job cannot be executed. Also, if 
an error is detected in an assembly, 
FORTRAN compilation, or during a loading 
from Disk System format during a 
STORECI function, all DUP functions are 
bypassed until the next valid ASM, FOR, or 
JOB record is read. 


4, If the FORTRAN compiler or the assembler 
encounters a monitor control record, control 
will be transferred to the Supervisor, i.e., 
the monitor control record will be trapped. 
The Supervisor will correctly analyze the 
record after the compilation or assembly has 
been abandoned. DUP will not trap a monitor 
control record during a DUP operation (refer 
to DUP Control Records). 


The stacked input arrangement shown in Figure 4 
will compile, store, and execute both Programs A 
and B, providing there are no source program 
errors, and there is sufficient room in the Working 
Storage area (refer to Working Storage Area). A 
source program error causes the DUP STORE 
operation (refer to DUP Control Records) to be 
bypassed for that program, and all following XEQ 
requests preceding the next JOB record are 
disregarded. Thus, if the successful execution of 
one program depends upon the successful completion 
of the previous program, both programs should be 
considered as one job and the XEQ control records 
should not be separated by a JOB record. 

Figure 5 shows the stacked input arrangement for 
three jobs which are not dependent upon each other. 

Job A assembles, stores, and executes source 
program A. This job includes comments cards 
and a PAUS monitor control card to allow the 
operator to intervene. 

Job B calls in the Disk Utility Program, and 
stores object program B on disk. 

Job C compiles, stores, and executes FORTRAN 
source program C, 


THE LOADER 
The Loader has two basic functions: 


1. To prepare entire core loads (Disk System 
format loading). 

2. To bring core loads into core storage 
immediately before execution (Core Image 
format loading). This includes the restora- 
tion of COMMON, if any, between linked core 
loads. 


These two loading processes are described after 

a discussion of the origin which the Loader gives 

a particular core load, the object-time transfer 
vector, and system overlays (SOCALs). Disk 
System format and Core Image format are described 
in Appendix B. 















// 6 XEQ b NAME B 


// ’ XEQ b NAME A 


* STORE bbbbbbWSbbUAbbNAME B 


Source Program B 


FORTRAN Control Records 


* STORE bbbbbbWSbbUAbbNAME A 


Source Program A 


FORTRAN Control Records 


Cold Start Card 
(see Cold Start 
Operating Procedure) 


Figure 4, Example of Stacked Input (One Job) 


Origins for Core Loads Main Program Origin 
Disk I/O Version (hexadecimal) (decimal) 


DISKZ 01C2 450 
The Loader origins relocatable mainlines (main DISKO 0260 608 
programs) after the Disk I/O subroutine requested DISK1 0370 880 
by the user on the XEQ control record. One of DISKN 0438 1080 
these disk routines is always in lower core, and The origins for absolute mainlines are not con- 
no disk routine is included in any disk-stored core trolled by the Loader; however, such mainlines 
load. DISKZ is always used unless otherwise must be originated above the end of the Disk I/O 
specified. The origins used by the Loader are version used. All references in a core load to a 
shown below: Disk I/O subroutine must be to the same one. 
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Source Program C 


FORTRAN Control Records 


Object Program B 


Source Program A 


Assembler Control Records 


Cold Start Card 
(see Cold Start 
Operating Procedure) 


@ Figure 5. Example of Stacked Input (Three Jobs) 
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Object-time Transfer Vector 


In order to transfer to and from subroutines at 
execution time, the Loader builds two separate 
object-time transfer vectors: the CALL TV and 
the LIBF TV (see Figure 6). 

Each CALL TV entry is a single word containing 
the absolute address of a subprogram entry point; 
however, in the case of a LOCAL subprogram 
referenced by a CALL statement, the absolute 
address is the address of the corresponding 
Flipper Table entry instead of the subprogram 
entry point. 

Each LIBF TV entry consists of three words. 
Word one is the link word. Words two and three 
contain a branch instruction to the subprogram 
entry point; however, in the case of a LOCAL 
subprogram referenced by an LIBF statement, 
words two and three contain a branch instruction 
to the corresponding Flipper Table entry instead 
of the subprogram entry point. 

The first two LIBF TV entries are special 
entries, each three words long. The first entry is 
the Floating Accumulator (FAC). The address of 
the first word of FAC must be odd; therefore, if 
necessary, a dummy entry is made in the CALL 
TV to make FAC begin at an odd address. The 
second special entry is used by certain sub- 
routines to indicate overflow, underflow, and 
divide check. 

If SOCALSs are used, the LIBF TV contains 
special entries for SOCAL subprograms referenced 
by LIBF statements. These entries transfer 
indirectly either to the referenced subprogram if 
the overlay containing the subprogram is 
presently loaded, or to the SOCAL Flipper in 
order to load the required overlay and transfer 
to the referenced subprogram (refer to System 
Overlays). 

The CALL TV does not contain entries for 
SOCAL subprograms referenced by CALL 
statements if SOCALSs are used. 


System Overlays (SOCALs) 


System Overlays (SOCALs) are created for any 
core load with a FORTRAN mainline program 

if the core load will not fit into core. The 

Loader selects certain subroutines used in the 
core load and writes them into Working Storage 

in either two or three groups (overlays). An area 
in core as large as the largest overlay is reserved 
for these subroutines. Whenever a subroutine in 
one of these overlays is required during program 
execution, the corresponding overlay is read 
from the disk into the overlay area in core (if it 
is not already in core). 

Overlays are constructed from the IBM sub- 
routine library according to type and subtype 
(described in Appendix B). The user can alter 
this design by changing the subtypes of the 
library subroutines, or by specifying a subtype 
for his own subroutines (refer to DUP Control 
Records—STORE). The two levels of SOCALS 
are described in the following paragraphs. 

SOCAL Level 1 uses the following two overlays: 


1. Type 3, subtype 2 (arithmetics, e.g., FADD), 
and Type 4, subtype 8 (functionals, e.g., SIN). 


NOTE: If the FORTRAN program contains a write 
statement to the plotter, the arithmetic and functional] 
subroutines EADD, FADD, EMPY, FMPY, FARC, 
XMD, and XMDS cannot be included in the arithmetic 
and functional SOCAL. Instead, these routines must 
be in core. Due to plotter and disk interactions 
concerning overlap of I/O, print speeds may be 

less than previously achieved, 


2. Type 3, subtype 3 (the non-disk FORTRAN 
Format subroutine SFIO, and the FORTRAN 
I/O subroutines, e.g., CARDZ), 


Dummy one - word entry in CALL TV 
(if necessary) to ensure odd address 


for FAC 


Last First Disk Indicators FAC 


LIBF LIBF i/o 


LIBF TV 


Last _ Second First 
CALL CALL CALL 


End of Core 
High Core 


CALL TV COMMON 


I 


Object - time TV 


Figure 6. Layout of Ovject-Time Transfer Vector Area 
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Level 1 reduces the core requirements by an 
amount equal to the total size of the smaller of 
these overlays. Approximately 15 words of extra 
linkage, however, are required. 

If core loads do not fit with Level 1, then 
Level 2, employing the following three overlays, 
is used: 


1. Same as (1) above. 

Same as (2) above. 

3. Type 3, subtype 1 (disk FORTRAN I/O 
subroutines SDFND and SDFIO). In addition, 
this overlay includes a 320-word buffer. 


bo 


Level 2 reduces the core requirements by an amount 
equal to the sum of the two smallest overlays, with 
approximately 15 words of extra linkage added. 

The overlays will not contain all available sub- 
routines of the specified types, but only those 
required by the core load, 

Since LOCALs take priority over SOCALs, if a 
subroutine which would otherwise be in a SOCAL 
overlay is designated a LOCAL, it will appear as 
a LOCAL and not as part of a SOCAL. 

If a core load does not fit with Level 2 over- 
lays, core requirements may be reduced by 
additionally designating the following as 
LOC ALs: 


1. Subroutines not contained in any overlay. 

2. Subroutines contained in the largest overlay. 
This reduces the SOCAL overlay area re- 
quired in core. 


If the core load does not fit into core even with 
SOCALS, anerror condition is indicated. An 
error condition is also indicated for core loads 
which do not fit and which have mainline pro- 
grams written in assembler language. 


Programs requiring system overlays cannot be 
stored in Core Image format (refer to Appendix B, 


Disk Core Image Format). 


NOTE: DISKZ and the SOCAL Flipper routine use 
Index Register 2 without saving or restoring it. It 
is, therefore, the programmer's responsibility to 
preserve the contents of Index Register 2 whenever 
a program uses subroutines that cause DISKZ to be 
used or subroutines that would be included in a 
SOCAL. 
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Disk System Format Loading 


A core load is built from programs stored in Disk 
System format in either of two cases: 


1. To execute the core load immediately (called 
as a result of an XEQ control record or a 
CALL LINK). In this case control must be 
passed to the Core Image format loading 
process at the termination of the Disk 
System format loading process. 


2. To store the core load in Disk Core Image 
format for future execution (called as a 
result of a DUP *STORECI control record - 
refer to DUP Control Records). In this 
case, control is returned to DUP, which 
initiated the process. 


In this type of loading, a mainline program (with 
its required subroutines) is converted from Disk 
System format to Core Image format. This 
includes the construction of the core image 
header record and the object-time transfer 
vector. Parts of the core load which are to 
reside below location 4096), are stored in the 
CIB; parts of the core load which are to reside 
above location 4095j9 (if any) are placed directly 
into core storage. LOCALs and SOCALSs which 
are a part of the core load are also processed and 
written out on Working Storage (following the last 
data file, if any). 


Core Image Format Loading 


In this loading process, the core load is read into 
core, except for the first sector. When loading a 
program immediately following its conversion from 
Disk System format, only the contents of the CIB 
are read into core (other parts of the core load are 
already in core). When loading a program which 
has previously been stored in Core Image format, 
both the sections above location 40959, if any, 

and below 4096,, are read into core. The Skeleton 
Supervisor is given the information necessary to 
enable it to read in the first sector of the core 
load and to move the object-time transfer vector 
into its location. Control is then passed to the 
Skeleton Supervisor, and finally to the object 
program. 


The Disk Utility Program (DUP) is a group of 
routines designed to accomplish the following: 


e Allocate disk storage as required by each 
program or data file to be stored 


e Make these programs available in card or 
paper tape format 


e Provide printed status of the User area, 
Fixed area, and Working Storage area. 


e Perform various disk maintenance operations. 


The Disk Utility Program is called into operation 
by a DUP monitor control record. This record 
may be followed by any number of DUP control 
records to select the routines desired. The DUP 
control records are described in subsequent 
paragraphs. The character codes recognized 

by DUP are listed in Appendix D. 


Working Storage (WS) Indicator Word 


A WS Indicator Word in COMMA (0069) contains the 
disk block count of the program to indicate that a 
valid program is in Working Storage. (There are 16 
disk blocks in a sector. ) 

Upon completion of an assembly or compilation, 
the WS Indicator Word is set to the disk block count 
of the program left in Working Storage in Disk System 
format. If the user's program has put data in 
Working Storage, then the user must put the data disk 
block count into location 0069. DUP can then be 
called upon to store or dump this ‘program. 

When a DUP function is used to dump from the 
User area or the Fixed area, the WS Indicator 
Word is set to the disk block count of the program 
being moved. If the DUP function does not destroy 
any part of the program in Working Storage, the 
WS Indicator Word is not changed. It is set to 
zero by a store to the User area, a Cold Start, or 
a JOB monitor control record, 

If a DUP function which involves programs 
is requested from Working Storage while the WS 
Indicator Word is zero, a FROM field error 
message is given and the requested function is 
bypassed. 
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DUP CONTROL RECORDS 


DUP control records generally have the following 
format: 


cc 


1234567891011 1213 1415 1617 18 19 20 21 22 23 24 25 26 27 28 29 30 
ee wy ays 
* 


Asterisk DUP Func- "FROM" "TO" Program Name Count 
incc 1 tion Name Device Device (cc 21 - 25) Field 
(cc 2 - 12) Symbol Symbol 
(cc 13 - (cc 17 - 
14) 18) 


All fields except Count Field are left-justified. 
Each DUP control record contains an asterisk 
(*) ince 1. The DUP Function Name is in cc 2 - 
12. The "FROM" and "TO" symbols (cc 13 - 

14 and 17 - 18, respectively) specify the 1/0 
devices and/or disk areas from and to which 
data is to be transferred. The following 
abbreviations must be used in the FROM and TO 
fields: 


Symbol Meaning 

PR Principal Print Device 

CD Card Reader (if the Disk Monitor 
System has been loaded from 
paper tape, CD is equivalent to 
PT) 

PT Paper Tape 

WSs Working Storage, Disk 

UA User area, Disk 

FX Fixed area, Disk 


Program Name is one to five alphameric characters 
specifying the name of a mainline program or the 
first entry point in a subroutine. 

The Count Field is in decimal, right-justified. 
For data files, if the source is disk, this field 
specifies the number of sectors; if the source is 
cards, this field specifies the number of cards; 
if the source is paper tape, this field specifies 
the number of records. Unspecified portions of 
DUP control records can be used for comments. 
A "b'' appearing in a column indicates that the 
column must be blank. 
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In the following paragraphs, each DUP function 
name is accompanied by a table showing the 
symbol combinations that may be specified in the 
FROM and TO fields. The tables also show the 
various formats that data can be in before the 
operation, and the corresponding formats to 
which this data is converted by DUP after the 
operation. These formats appear in parentheses 
after the FROM and TO symbols, and have the 
following meanings: 


DSF Disk System Format 

DCI Disk Core Image Format 
DDF Disk Data Format 

CDS Card System Format 

CDD Card Data Format 

PTS Paper Tape System Format 
PTD Paper Tape Data Format 
PRD Print Data Format 


These formats are shown in Appendix B. Table 3 
summarizes the DUP functions that move 
information from one area to another; Table 4 
summarizes all DUP control records; and 

Table 5 gives the restrictions on DUP functions 
when in temporary mode (JOB T). 


DUMP (Dump Program) 


The DUMP routine dumps (unloads) information 
from the User area, Fixed area, or Working 
Storage area to cards, paper tape, or printer, 
or from the User or Fixed area to the Working 
Storage area. The decimal number of disk 
blocks dumped is specified in the corresponding 
LET entry or in the WS Indicator Word. 


ite CD PT PR WS 
(CDS) (CDD) (PTS) (PTD) (PRD) (DSF) (ODF) 
Rae Sa ee ee 





The control record format is as follows: 


cc 


1234567891011 1213 1415 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 


ae) ns, ey 
*DUMPb "FROM" "TO" Program Name 
Symbol Symbol (required ex- 


cept for WS to 
PR) 
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NOTE 1: If the DUMP is from WS, and the WS 
Indicator is zero, a FROM field error message 
is given (refer to Appendix A). 


NOTE 2: When the DUMP is to cards, each card 
is checked to see that it is blank before it is 
punched (refer to Appendix A). 


NOTE 3: At the end of DUMP operations, all 
subsequent blank cards are selected into 
Stacker 2. 


DUMPDATA (Dump Data) 


The DUMPDATA routine dumps data from the User 
area, Fixed area, or Working Storage area to 
cards, paper tape, or printer, or from the User 
or Fixed area to the Working Storage area. The 
number of sectors to dump must be specified by 
the count field. This number of sectors will be 
dumped regardless of the length of the specified 
data file or program. 


CD PT PR Ws 
Kron) (CDD) (PTD) (PRD) (DDF) 





The control record format is as follows: 


cc 


1234567891011 1213 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 


* DUMPDATAb "FROM" "TO" Program Name Sector Count 
Symbol Symbol (required ex~ (when dump- 
cept for WS to ing from WS, 
PR) the sector 
count overrides 
the WS Indica- 


tor) 


NOTE 1: When the dump is to cards, each card 
is checked to see that it is blank before it is 
punched (refer to Appendix A). 


NOTE 2: At the end of DUMPDATA operations, all 
subsequent blank cards are selected into Stacker 2. 


( 


(dnd) wes8org ATA ystd 
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Table 3, Movement of Information Using DUP Control Records 


















FX 


(DCI) (DSF) (DDF) (DC!) 






WS. cD PT 
(DSF) (DDF) (CDD) (CDS) (PTD) (PTS) 
DUMP** DUMPDATA** | DUMPDATA** | DUMP** DUMPDATA** | DUMP** 


DUMP** DUMP** DUMP** 
DUMPDATA** | DUMPDATA** DUMPDATA** 






DUMP** 
DUMPDATA** 






DUMP** 
DUMPDATA** 





DUMP** 
DUMPDATA** 






DUMP** DUMP ** 
DUMPDATA** | DUMPDATA** 


DUMP** 
DUMPDATA** 






DUMP** 
DUMPDATA** 


DUMP** 
DUMPDATA** 


DUMP** DUMP** 
DUMPDATA** | DUMPDATA** 






DUMP** DUMP** DUMP** DUMP** 
DUMPDATA** | DUMPDATA** DUMPDATA** DUMPDATA** 


DUMPDATA | DUMP DUMPDATA | DUMP DUMP 
DUMPDATA 
Lo DUMPDATA DUMPDATA DUMPDATA 
STOREDATA** STOREDATA** Ld 





STORECI 


(DSF) | STORE* STORECI* 
STOREMOD 
WS 
(DDF) STOREDATA* 
STOREMOD 
cD 
(CDS) |STORE* [3 STORECI 
is Lo ides a 
PT 
(PTS) \STORE* = STORECI* 


*Eliminates stored information from Working Storage 


STOREDATA 


STOREMOD 











**Replaces current contents of Working Storage 


Table 4. Summary of DUP Control Records 














45 6 7 8 9 10 WW 12 #13 #14 #15 #16 #17 1 19 20 21 22 23 24 25 26 27 28 29 30 






































M 

* D UM P DAT A b — From— —To— Name ————— — Sector Count-——— 
aes S T O R CE — From — — To — Name 

eS BRE. Es oe] - Fom— — To — Name ————— — Count of 'Files'— 

Records 
z* S§ TOR EDA TA — From— — To — Name —————— —Sector, Card, or— 
Record Count 

* § TOR EM O D b — WS— UA or FX Name 

* DUM P L €E T (Print contents of LET dn principal printing unit) 

* DW A OD R (Write sector addresses in Working Storage area) ; 

Bee GE: eo E. oT.. cE Name —————— ‘ 

* D E F | N E b F I X E D b A R E A — Cylinder — 


Count 





Table 5. Restrictions on DUP Functions in Temporary Mode (JOB T) The control record format is as follows: 
ec 
BoM: Mone 1234567891011 1213 1415 1617 18 19 20 21 22 23 24 25 
DUMPDATA None Sa ban aad ee aaa 
*STORE "FROM" "TO" Program Name 
STORE None Symbol Symbol (required ex- 
STORECI To UA only Specifies subtype (left- ne. stoning 
justified) of type 3 & 4 
STOREDATA To UA and WS only subprograms (see Appen- 
STOREMOD Not allowed die Bs SMe Nelaits 
blank unless special 
DUMPLET None SOCAL handling is 
desired. 
DWADR Not allowed 
DELETE Not allowed 
DEFINE FIXED AREA Not allowed 
DEFINE VOID ASSEMBLER Not allowed NOTE: If the STORE is from WS, and the WS 


Indicator is zero, a FROM field error message 
is given (refer to Appendix A). 


DEFINE VOID FORTRAN Not allowed 





STORE STORECI (Store Core Image) 

__ The STORE routine stores programs from cards, The STORECI routine stores programs from cards, 
paper tape, or the Working Storage area to either paper tape, or the Working Storage area to either 
the User area or Working Storage area on disk. the User area or Fixed area on disk. The 


programs are converted to Disk Core Image 
ba me format (see Appendix B), hence they are loaded 
(DSF) (DSF) into core storage faster than programs stored 
CD (CDS) 7 2 otherwise. The STORECI function uses the 
WS (DSF) Xx Loader to convert the Disk System format pro- 
Eye) x x gram to core image. After control is returned to 
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DUP, the core image header and that portion of the 
program (excluding Disk I/O) that resides below 
core location 4096;9 are stored from the CIB, and 
that portion of the program above core location 
409519, if any, is stored from core. No 
COMMON area is stored, but the transfer vector 
is included. STORECI always requests a map 
from the Loader since it will not be available when 
the program is loaded from Core Image format. 


UA FX 
Eon) (DCI) (DCI) 


CD (CDS) x X 
WS (DSF) Xx X 
PT (PTS) Xx X 


The control record format is as follows: 


cc 


1234567891011 1213 1415 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 


*STORECI 
See "FROM" "TO" Program Name See Note 2 
Note 1 Symbol! Symbol (always re~ 
quired) 


NOTE 1: Column 9 is used to specify the Disk I/O 
routine required by this program. 


0 = DISKO 
1 = DISK1 
N = DISKN 


Others = DISKZ 
(including blank) 


NOTE 2: Count Field (cc 27-30) contains decimal 
count of *FILES records that are required for 
program being stored. This number of records 
will be read before the normal STORECI function 
is performed. 


NOTE 38: Data files named in the *FILES record 
must be in the Fixed area. 


NOTE 4: If the STORECI is from WS, and the WS 
Indicator is zero, an error message is given 
(refer to Appendix A). 


STOREDATA (Store Data) 
The STOREDATA routine stores data from cards, 


Working Storage area, or paper tape to the User 
area, Fixed area, or Working Storage area. Each 


data file starts at the beginning of the next available 
sector and the length is defined in whole numbers 
of sectors. 


UA FX WS 
Leon] (DDF) (DDF) (DDF) 


WS (DDF) Xx x 
CD (CDD) X x Xx 
PT (PTD) Xx x x 


The control record format is as follows: 


ce 


1234567891011 1213 1415 1617 18 19 20 21 22 23 24 25 26 27 28 29 30 


Nee) N 5) fo Ne ly 
*STOREDATA 


"FROM" "TO" Data File Name see NOTE 
Symbo}! Symbol (not required for 

CD to WS or PT 

to WS) 


NOTE: Count Field (cc 27-30) must contain one of 
the following in decimal: 

Sector count if source is WS (overrides the WS 
Indicator), card count if source is CD, record 
count if source is PT. 


STOREMOD (Store Modify) 


The STOREMOD routine moves data from Working 
Storage to the User area or Fixed area, overlaying 
an item specified by name in the User area or Fixed 
area. This permits the user to modify an item in 
the User or Fixed area without changing its name or 
relative position. If the user's program has put 
data in Working Storage, the user must put the data 
disk block count into location 0069. The length of 
the item in Working Storage (in disk blocks) cannot 
be greater than the length of the item it overlays. If 
the name is not found in LET/FLET, the message 
"D 16 DCTL, NAME FLD" is printed. If an attempt 
is made to STOREMOD data longer than the item 
already in the User or Fixed area, the function is 
aborted and the message "WS TOO LONG" is printed. 


es) fre vs 





The control record format is as follows: 


cc 


1234567891011 12131415 16 17 18 19 20 21 22 23 24 25 


a) ew] WW ~~ 
*STOREMOD b 


WS UAor 
FX 


Data File Name 
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DUMPLET (Dump Location Equivalence Table) 


The DUMPLET routine dumps the contents of the 
Location Equivalence Table (LET) to the principal 


printing unit (see Figure 7). 


If a Fixed area has 


been defined, the Fixed Location Equivalence 

Table (FLET) is printed as a separate table 

following LET (see Figure 8). 
The control record has the following format: 


Line 1]; 


Line 2; 

(Entries in COMMA- 
base and adjusted 
addresses — see 


| Appendix E) 


Line 3: 
(LET sector header 
words) 


Line 4 


Line n 


Line 4 


NOTE 1: 
NOTE 2: 
NOTE 3: 


NOTE 4: 


12345678 
———_ ~~ 
*DUMPLET 


LET 


XXXXKX XXXX 


Work Storage starting 
sector address 


XXXX 
My 


Relative sector 


number (0-7) 


XXXX XXXX 
SS eed 


Disk block address 
available for next User 
area program or data file 


XXXX 
eee 


0 if last sector 
of LET; other- 


wise non-zero 


DWADR (Disk Write Address) 


The DWADR routine writes sector addresses on 
every sector in the Working Storage area. It 
restores correct disk sector addresses in the 
Working Storage area if they have been modified 
during execution of a user's program. Previous 
contents of the area are overlaid. Following the 
address word, the first two words of each sector 
contain D120 2663 (in hexadecimal). The next 
238 words have the format Annn, where nnn is the 
hexadecimal address of the sector; the last 80 


XXXX XXXX 
uU——_—__,—_ 


Number of words used 


by LET 


XXXX XXXX XXXX 
-_—e’ se ——~_—_ 
Sector address of 


next sector 


Words available 
in this sector 


Reserved 


for more entries 


(0 if last sector) 


XXXX 


XXXKXKX ; 


Program name Program size 


(disk blocks) 


XXXXX, 


Program name 


XXXX 
eo 


Program size 


(disk blocks) 


XXXXX 
Rahat giana 


Data file name 


XXXX 
eaadianp hath’ 


Data file size 


(disk blocks) 


Xx 
XXX 


Starting address 
(disk blocks) 


XXXX 
ede 


Starting address 
in User area 


(disk blocks) 


XXXX 
SY 


Starting address 
in User area 


NOTE 5: All numbers are in hexadecimal, 


(disk biocks) 


Figure 7. Output Format from a DUMPLET Operation (LET) 
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For DSF 


programs 


XXXX 
reals 
Execute core 

address 
(absolute) 


AXXX 
uU~~— 
Program load 
address in 

core 


XXXX 
U4 
Actual word count 
of core image pro- 

gram (includes a 


60-word header) 


For core 
image 
programs 


XXXX 
—— 


Data file size 
(disk blocks) 


0000 0000 
For data 


Reserved files 





The header words of the first sector are printed on line 3. Additional header words are printed for each foliowing sector as required. 
For multi-entry subroutines, the Program Size and Starting Address fields for entry points subsequent to the first one will be blank. 
Program size is the disk block count of the program. This corresponds to word 3 of the actual LET entry (see Appendix G), 


Words 4, 5, and 6 of the printout reflect the actual LET entry words 4, 5, and 6. 


words are zeros. The control record has the 
following format: 
cc 


123456 
U,- 


* DWADR 


DELETE (Delete Program or Data) 


The DELETE routine deletes a specified program 
or data file from the User or Fixed area. The 
LET or FLET entry is deleted and if the program 
was in the User area the User area is repacked. 
A 1DUMY entry is created to replace deleted 
FLET entries. Although no packing of the 

Fixed area occurs, dummy entries in FLET are 
packed so that two are not adjacent but are 
consolidated. The control record has the 
following format: 


cc 


1234567891011 1213 14 15 16 17 18 19 20 21 22 23 24 25 
—-—___ —,_—~ 


Name 


*DELETE 


Line 1: FLET 


Line 2: 
(Entries in 


COMMA) 


XXXX KXXX 
UEEEEEEEEEEEEEIEEEN aaa 


XXXX XXKX 
—————— 


Sector address of CIB Sector address of FLET 


XXXX 
K+ 
0 if last sector of 
FLET; otherwise 
non-zero 


XXXX 
Sa 
Relative sector 

number (first 


sector is 
numbered 16) 


Line 3: 
(FLET sector 
header words) 


FLET entries are the same as for LET except that DSF programs 
not appear in the Fixed area; therefore, no three-word entries 
appear in FLET. 


NOTE 1: All references are in disk blocks unless otherwise indicated, 


NOTE 2: 
there is a header for each 52 FLET entries, 


DEFINE (Define) 


The DEFINE routine defines variable parameters 
required by the Monitor System. The following 
options are available: 


e Define or increase the size of the Fixed area 
e Delete the assembler from the system 
® Delete FORTRAN from the system 


If the user wishes to delete the assembler or 
FORTRAN, he must do so before he defines a 
Fixed area. 

Within the Fixed area, programs can be stored at 
fixed disk locations. This area is initially defined as 
a whole number of cylinders, with a minimum of two, 
one of which is used for FLET, and it may be in- 
creased (but not decreased) by a whole number of 
cylinders at any time up to the length of Working 
Storage minus four cylinders. All of the specified 
increment is added to the Fixed Area after the 
initial definition. Defining or increasing the size of 
the Fixed area reduces disk storage available for 
User and Working Storage areas by the same amount. 


XXXX XXXX 
Reid eb deere rae ieee 


XXXX 
HY 


Reserved 


do 





Number of words used by FLET 


XX XX 
omeaeey 


Words available in this 
sector for more entries 


XXXX 
ae) 


Sector address of next 
sector (0 if last sector) 


The header words of the first sector are printed on line 3, Additional header words are printed for each following sector as required; 


Program size is the disk block count of the program. This corresponds to word 3 of the actual FLET entry (see Appendix G). 


NOTE 3: 
NOTE 4: Words 4, 5, and 6 of the printout reflect the actual FLET entry words 4, 5, and 6, 
NOTE 5: All numbers are in hexadecimal, 


Figure 8. Output Format from a DUMPLET Operation (FLET) 
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Deleting the assembler and/or FORTRAN packs 
the remaining information on the disk, thus 
increasing disk storage available for User and 
Working Storage areas by the amount occupied by 
the deleted programs (see Figure 2). 


The control record formats are as follows: 


To Define the Fixed area - 


ce 


1234567891011 1213 14 15 1617 18 19 20 21 22 23 24 25 26 27 28 29 30 
eS 


*DEFINEbF 1X ED b AREA NNNN 


where NNNN = positive cylinder count in 
decimal, right-justified, 
specifying the initial size of 
Fixed area (minimum of 2 
cylinders) or an increment 
to the Fixed area. 


NOTE: The first cylinder of the first DEFINE 
FIXED AREA is used for FLET. 


To Delete the Assembler - 


cc 


1234567891011 12 13 14 15 16 17 18 19 20 21 22 


*DEFINEbVO!I!DbASS EMBLER 


To Delete FORTRAN - 


cc 


1234567891011 1213 1415 16 17 18 19 20 


*DEFINEbBVO I! DbFORTRAN 


EDIT (to recall system loader) 
The *EDIT control record is used only by DUP to 
recall the System Loader, which initially loads 


the system into disk storage. The control 
record has the following format: 


cc 


12345 
*EDIT 


NOTE: This record must not be used by the user. 


DUP MESSAGES 


Each DUP control record is printed at the time it 
is read, thus signaling that DUP has control and 
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will remain in control until the next monitor 
control record is properly read. Whena 
requested DUP function has been successfully 
completed, the following two-word exit message 
is printed in hexadecimal: 


Word 1: Disk block address of program or disk 
area that has been processed. 
Word 2: Number of disk blocks involved. 


For the DUP functions listed below, these words 
contain the following information (all addresses 
and lengths are given in disk blocks): 

DUP Function Information Printed 
DUMP, STORE, Program address* and 


STORECI, STOREMOD, program length** 
DELETE 


DUMPDATA, 
STOREDATA 


Program address and 
decimal sectors or 
records specified con- 
verted to disk blocks 
DUMPLET - (LET) User area address and 
User area length 
DUMPLET - (FLET) Fixed area address and 
Fixed area length 


DWADR Working Storage address 
and Working Storage 
length 


DEFINE FIXED AREA Fixed area address 
and size 


DEFINE VOID 
ASSEMBLER 


Former address and 
size of assembler 


DEFINE VOID 
FORTRAN 


Former address and 
size of FORTRAN 


If the above words are not printed, the DUP function 
was not successfully completed. If the DUP opera- 
tion cannot be performed, an appropriate error 
message is printed at the time the DUP control 
record causing the error is read (see Appendix A). 





* If storing or dumping from Working Storage, the 


address of Working Storage is printed. 


**Length is the third word of LET/FLET entry 


(see Appendix G). 


DUP OPERATING NOTES 


The use of the PROGRAM STOP key, when perform- 
ing DUP operations with the 1130 Disk Monitor 
System, can cause the system to stop while there is 
disparity between LET/FLET, DCOM, and the actual 
disk contents. Ifthe job is aborted at this time, the 
disk pack will no longer contain an operating monitor 


system. 
DUP operations must be allowed to execute to 


completion. If the PROGRAM STOP key is used 


(WAIT at 0005), the operation must be continued 
from the point at which the system stopped. Core 
storage must not be altered. To continue, press 
PROGRAM START (see DUP Waits and Loops in 
Appendix A). 

Some DELETE functions may take several minutes 
since they may have to pack much of disk storage. 
These long DELETE and DEFINE functions must be 
allowed to complete their respective operations. 

Control can be returned to the DUP section that 
reads DUP and monitor control records by manually 
branching to core location 0276. 
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ASSEMBLER 


The language for the monitor assembler is de- 
scribed in the publication IBM 1130 Assembler 
Language (Form C26-5927). Therefore, only a 
general description of the operation and the control 
records for the monitor assembler are described 
in this section. 

The monitor assembler cannot be operated in- 
dependently of the Monitor System; however, the 
assembler can be deleted from the Monitor System 
if desired. 

A monitor control record with the pseudo-op 
ASM is used to call the assembler into operation. 
The assembler reads the source program, in- 
cluding control records, from cards or paper tape. 
After assembly, the object program resides in the 
disk Working Storage area, and can be called for 
execution with a monitor XEQ control record, or 
it can be stored in the User or Fixed area with a 
DUP STORE or STORECI operation or punched 
as a binary deck or tape with a DUP DUMP opera- 
tion, 


ASSEMBLER CONTROL RECORDS 


Assembler control records are used to specify 
assembly options and to provide input to the 


assembly process for certain types of source 
decks. Assembler control records can be either 


card or paper tape. 


Table 6. Summary of Assembler Control Records 


All assembler control records have the following 
format: 


Column 1: * 
2-71: Option 

If an assembler control record contains an aster- 
isk in column 1, but the option does not agree, 
character for character, with its valid format, 
as described below, the erroneous control record 
is ignored in the assembly, The option is not 
performed; however, no error results, 

Assembler control records can be written in 
free form, but at least one blank must separate 
the last character in the operation and the first 
character of any comments or numeric field. 

Assembler control records and their meanings 
are listed below. A summary is contained in 
Table 6. 


*TWO PASS MODE 


The source deck (or tape) must be read twice. 
TWO PASS MODE must be specified when: 


1. The user desires a list deck to be punched (see 
LIST DECK and LIST DECK E)., 

2. One pass operation cannot be performed be- 
cause intermediate output (source records) 
fill the Working Storage area of disk. 
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*TWO PASS MODE 


*LIST 

*LIST DECK 

*LIST DECK E 

*PRINT SYMBOL TABLE 
*PUNCH SYMBOL TABLE 
*SAVE SYMBOL TABLE 
*SYSTEM SYMBOL TABLE 
*LEVEL n 

*FILE n 


*COMMON n 


Read source deck twice; must be specified when LIST DECK or LIST DECK E is specified, or when intermediate 
output fills Working Storage 


Print a listing on the principal printing device 
Punch a list deck on the principal I/O device (requires TWO PASS MODE) 
Punch only error codes (cc 18-19) into source program list deck (requires TWO PASS MODE) 


Print a listing of the symbol table on the principal printing device 


Punch a list deck of the symbol table on the principal |/O device 


Save symbol table on disk as a System Symbol Table 

Use System Symbol Table to initialize symbol table for this assembly 

n = interrupt level number. Required for ISS subroutines 

n = number (decimal) of sectors of Working Storage required at object time by the program being assembled 


n = length of COMMON in words (decimal) 





*LIST 


A printed listing is provided on the principal 
printing device (console printer or 1132 Printer). 
The format of the printed listing corresponds to 
that of the list deck (see Figure 9). 


*LIST DECK 


A list deck is punched on the principal I/O device 
(card or paper tape). This option requires two 
passes (TWO PASS MODE). The list deck format 
is shown in Figure 9. In cards, object information 
is punched into columns 1-19 of the source deck 

in pass 2 to make the list deck. In paper tape, the 
list tape punched is similar to the input tape, but 


with 20 frames added to the beginning of each record 
corresponding to card columns 1-20, 


*LIST DECK E 


Same as LIST DECK except no object information 
other than errors (positions 18-19) are punched. 


*PRINT SYMBOL TABLE 


A printed listing of the symbol table is provided on 
the principal printing device (console printer or 
1132 Printer). Symbols are grouped five per line. 
Multiply-defined symbols are preceded by the 
letter M; symbols with absolute values in a relo- 
catable program are preceded by the letter A. The 
M and A flags, however, are not counted as 
assembly errors. 
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Blank Biank Blank 


Address of the 


. First Word of Error Flags, 
Instruction; the Assembled if any 
Address Code * 


Assigned to 
the Label, if any 


Relocation Indicators; Second Word of 
Col. 7 is Blank for One- the Assembled 
Word Instructions or DC Code 

or 
Exponent for an 
XFLC Statement. 





Blank Blank Blank Blank 
Format 


Label Op Code 


Tag 





Operands 


* For EBC Statements, Col. 9-12 Contains the Number of EBC Characters 


For BSS and BES Statements, ‘Col. 9-12 Contains the Number of Words 


Reserved for the Block. 


Figure 9, List Deck Format 


ID and Sequence 
Blank Number, if any 
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*PUNCH SYMBOL TABLE 


_ A list deck of the symbol table is punched on the 
principal I/O device (card or paper tape). The 
record format is the same as for PRINT SYMBOL 
TABLE. This option may be advantageous if offline 
card-to-printer or paper tape-to-printer facilities 
are available. 


*SAVE SYMBOL TABLE 


The symbol table generated in this assembly is 
saved on the disk as a System Symbol Table. The 
System Symbol Table is saved until the next SAVE 
SYMBOL TABLE control record causes a new 
assembly-generated symbol table to replace it. 
This control record is also used with the SYSTEM 
SYMBOL TABLE control record to add symbols to 
the System Symbol Table. The SAVE SYMBOL 


TABLE option requires this assembly to be absolute. 


If any assembler errors are detected, or if the 
symbol table exceeds the allowable size of the 
System Symbol Table - 100 symbols - the symbol 
table will not be saved as a System Symbol Table, 
and an assembler error message will be printed 


(refer to Appendix A, Assembler Error Messages). 


*SYSTEM SYMBOL TABLE 


Before assembly begins, the System Symbol Table 
(previously built by a SAVE SYMBOL TABLE 
assembly) is copied into the symbol table generated 
in this assembly. This control record is used when 
it is desired to refer to symbols in the System 
Symbol Table without definition of those symbols in 
the source program, or together with the SAVE 
SYMBOL TABLE control record when it is desired 
to add symbols to the System Symbol Table. All 
symbols in the symbol table taken from the System 
Symbol Table will have absolute values. 


*LEVELbn 


This control record is required for the assembly 
of an ISS routine. n= A decimal interrupt level 
number (0-5). If the device operates on two levels 
of interrupts (1442 Card Read Punch), two LEVEL 
control records are required. At least one blank 
must separate the word LEVEL and the interrupt 
level number. 
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* FILEbn 


n = Number of sectors (decimal) of the disk Working 
Storage area required at object time by the pro- 
gram being assembled. These sectors will be 
reserved at the beginning of Working Storage before 
any LOCALs or SOCALSs are stored. This control 
record is used only when assembling a relocatable 
mainline program. At least one blank must separate 
the word FILE and the number of sectors. 


*COMMONbn 


n = Length of COMMON in words (decimal). This 
allows a COMMON area to be saved in linking from 
a FORTRAN mainline program to an assembly 
mainline and linking back to a FORTRAN mainline. 
At least one blank must separate the word COMMON 
and the decimal number. 


ORIGIN OF SOURCE PROGRAM 


The origin of a relocatable source program will 
always be at relative zero unless otherwise specified 
in the source program, 

_ The origin of an absolute source program, if 

not otherwise specified, will be at the end of the 

disk routine DISKN (location 0438). Ifthe program 
will use another disk routine, the origin may be set 
lower to correspond to the proper disk routine. If 
no disk routine is used, the origin may be set to the 
end of the disk routine DISKZ (refer to Origins for 


- Core Loads). 


ASSEMBLER PAPER TAPE FORMAT 


The paper tape input to the assembler is punched on 
PTTC/8 tape, one frame per character. The format 
of the tape control records is the same as the card 
format. The format of the symbolic program tape 
records is the same as the card format except for 
the following: 


1, The tape does not contain preceding blanks 
corresponding to card columns 1-20, 

2. The tape does not contain blanks or data 
corresponding to card columns 72-80. 

3. Trailing blanks need not be punched. Therefore, 
up to 51 characters (corresponding to card 
columns 21-71) can appear in the tape record. 


Tape records are separated by NL (new line) 
characters (code DD). The delete character (code 
7F) is ignored whenever it is read, but the reader 
stop character (RS, code 0D) causes the program 
reading the tape to wait and start reading again 
when PROGRAM START is pressed. The case shift 
characters (codes 0E, 6E), when required, are not 
considered to occupy a space in the format. 


ASSEMBLER MESSAGES AND ERROR CODES 


Appendix A contains the assembler error messages 
printed during operation of the 1130 Monitor. If 
LIST DECK or LIST DECK E is specified, the error 
detection codes shown in Table 7 are punched in 
columns 18 and 19. For the first error detected in 
each statement the assembler stores and then punches 
the code in column 18; the code for a second error 
is stored, overlayed by any subsequent errors, and 
punched in column 19. Thus, if more than two 
errors are detected in the same statement, only 
the first and last are indicated. 

At the end of the assembly, a message is printed 
indicating the total number of assembly errors de- 
tected in the source program. Since no more than 
two errors are flagged per statement, the error 
count may exceed the actual number of flags. 

If symbol table overflow exceeds 32 sectors in 
Working Storage, an assembler error message is 
printed (refer to Appendix A). The maximum size 
of the symbol table (including overflow) and, hence, 
the maximum number of symbols that can be de- 
fined in a program is determined by the size of 
core storage as indicated below: 





Size of Core Storage (words) 


Type of Assembly 4096 8192 
With Listing 3502 4867 
One Pass, No Listing 3574 4940 
Two Pass, No Listing » 8609 4974 


ASSEMBLER OPERATING PROCEDURES 


Card Input 


The source deck (including assembler control 
cards) can be assembled as part of a job, or it 
can be assembled as a separate job. In either 
case, the source deck must be preceded by a 
ASM monitor control record. 


Table 7. Assembler Error Detection Codes 


Address Error 
Attempt made to specify dis- 
placement field, directly or 
indirectly, outside range of 

-128 to +127. 








Displacement set to zero 

















Condition Code Error 
Character other than +, -, Z, 
E, C, or O detected in first 
operand of short branch or 
second operand of long BSC, 
BOSC, or BSI statement. 


Displacement set to zero 




























Format Code Error 
Character other than L, |, X, 
or blank detected in col. 32, 
or Lor | format specified for 

instruction valid only in short 
form, 


Instruction processed as if L 
format were specified, unless 
that instruction is valid only in 
short form, in which case it is 
processed as if the X format 
were specified 














Label Error 
Invalid symbol detected in label 
field. 


Label ignored 














Multiply Defined Label Error 
Duplicate symbol encountered 
in operand. 


First occurrence of symbol in 
label field defines its value; 
subsequent occurrences of 

symbol in label field cause a 
multiply defined indicator to be 
inserted in symbol table entry 

(Bit O of first word). 
















Op Code Error 
Unrecognized op code 






Statement ignored and address 
counter incremented by 2. 
Statement ignored 






ISS, ILS, ENT, LIBR, SPR, 
EPR, or ABS incorrectly placed. 



















Relocation Error 
Expression does not have valid 
relocation. 

Non-absolute displacement 
specified. 

Absolute origin specified in 
relocatable program. 
Non-absolute operand specified 
in BSS or BES. 
Non-relocatable operand in 
END statement of relocatable 
mainline program. 

ENT operand non-relocatable. 





Expression set to zero 





Displacement set to zero 





Origin ignored 










Operand assumed to be zero 











Card columns 9-12 left blank; 
entry assumed to be relative 
zero 

Statement ignored 











Syntax Error 
Invalid expression (e.g., invalid 
symbol, adjacent operators, 
illegal constant) 

Illegal character in record. 





Expression set to zero 















If illegal character appears in 
expression, label, op code, 
format, or tag field, additional 
errors may be caused. 

Card columns 9-12 left blank; 
entry assumed to be relative zero 
Card: columns 9-12 not punched; 
acdress counter incremented 


by 17. 





















Main program entry point not 
specified in END operand. 
Incorrect syntax in EBC state- 
ment (e.g., no delimiter in 
card column 35, zero character 
count). 

Invalid label in ENT or ISS 
operand. 












Statement. ignored 












Tag Error 
Card column 33 contains 
character other than blank, 0, 
1, 2, or 3 in instruction 
statement. 






Tag of zero assumed 














Undefined Symbol 
Undefined symbol in expression 






Expression set to absolute zero 
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In most cases, the source deck is passed 
through the 1442 Card Read Punch only once. If 
the assembly is part of a stacked job, the 


‘assembly proceeds without operator intervention. 


If the END card is the last card in the stack, 
when the reader goes not ready, press reader 
START to process the last card. 

In some cases it may be necessary to 
assemble in the two-pass mode, that is, pass 
the source deck through the 1442 Card Read 
Punch twice. If a copy of the source deck is 
placed behind the original, the source deck will 
be read twice, and a stacked job is again 
possible even when in the two-pass mode. 

It is important to note that when a deck is 
being assembled in two-pass mode, the 
assembler is ready to read another card as soon 


as Pass 1 processing of the END card is completed. 


Therefore, a monitor control record must not 
follow the END card the first time (or the first 
END card if the deck has been copied), or the 
assembler will trap this record, terminating 
the assembly and returning control to the 
Supervisor. 


If the deck is not copied, the END card should 


be the last card. Press reader START to 
process the last card and complete Pass 1. The 
assembler will then try to begin reading cards 
for Pass 2, therefore the source deck (with its 


control cards) should be removed from the stacker 
and placed in the hopper. Pressing reader START 


will continue Pass 2 of the assembly. The card 
reader will go not ready when all cards but the 


END card have been read. Press reader START 


to process the END card and complete the 
assembly. Operation is continuous from Pass 1 


to Pass 2 if the source deck is replaced behind the 


END card from the stacker during Pass 1. 
If the *PUNCH SYMBOL TABLE assembler 


control card is used, sufficient blank cards must 
be placed after the END card and before the next 


monitor control record in the stacked job. In 
estimating the number of blank cards required, 
allow one card for each five symbols used in 
the source deck. Unnecessary blank cards will 
be passed to the next monitor control record. 


Paper Tape Input 


Most of the procedures for card input are also 
applicable to paper tape input. 
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If the assembly is performed in the one-pass 
mode, operation is continuous, and control is 
returned to the Supervisor which will then pass 
any delete codes between the assembler and the 
next monitor control record. The assembler 
will also pass any delete codes that may occur 
between records of the source program. 

When it is necessary to assemble in the two- 
pass mode, one of the following techniques may 
be used: 


1. Have the stacked job tape contain two copies 
of the source program. The assembler will 
simply begin reading the copy after the 
original has been read in Pass 1. 


2. Assemble outside of the stacked job tape. 
The job tape, or a separate strip containing 
an ASM monitor control record serves to 
bring the assembler’ into core. A separate 
source program tape (including assembler 
control records) should then be readied on 
the paper tape reader, and the assembler 
will read this tape and complete Pass 1. 
Ready the source tape again and the 
assembler will complete Pass 2. A stacked 
job tape can now be readied again on the 
paper tape reader, and the Supervisor will 
continue with the stack. 


3. The assembly of a program may start in one- 
pass mode and then be changed to two-pass 
mode (see Assembler Error Messages, 
Appendix A). The assembler will wait, and 
pressing PROGRAM START continues the 
assembly in Pass 1 of two-pass mode. If this 
assembly is part of a stacked job, operator 
intervention is necessary to prevent the 
assembler from reading the monitor control 
record which follows the END record 
(applicable to card input also). When Pass 1 
intermediate output may fill Working Storage, 
it is recommended that sufficient length of all 
delete codes be punched into the tape after the 
END statement and before the next monitor 
control. When the assembler is reading the 
delete codes following the END record, the 
operator should press PROGRAM STOP, and 
manually reposition the tape at the beginning 
of the source program. When the tape is 
positioned, press PROGRAM START to con- 
tinue Pass 2 of the assembly. 


When punching a list tape (* LIST DECK or 
*LIST DECK E), first create a leader in the 
punched tape by holding down FEED and DELETE on 
the punch (press DELETE before FEED and release 
FEED before releasing DELETE). The same 
procedure should be used to create a trailer 


following the last record punched by the assembler. 


When the paper tape reader or punch is not 
ready, the assembler will wait at location 0041 
with 3000,¢ displayed in the accumulator. Ready 
the punch or reader, and press PROGRAM START 
to continue. 


Assembler 
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FORTRAN COMPILER 


The language for the Monitor FORTRAN compiler 
is described in the publication IBM 1130 FORTRAN 
Language (Form C26-5933). Therefore, only a 
general description of the Monitor FORTRAN 
compiler operation is contained here. 

The FORTRAN compiler cannot be operated 
independent of the Monitor System; but, if 
desired, the compiler can be deleted from the 
system. 

A monitor control record having the pseudo-op 
FOR is used to call the FORTRAN compiler into 
operation. The compiler reads the source program 
from cards or paper tape. After compilation, the 
object program resides in the disk Working Storage 
area, and can be called for execution with a monitor 
XEQ control record, loaded to the User or Fixed 
area with a DUP STORE or STORECI operation, 
or punched as a binary deck or tape with a DUP 
DUMP operation. All FORTRAN programs are 
compiled in relocatable format. 

For 1130 FORTRAN I/O logical unit 
definitions, the 1/O unit numbers are permanently 
set as described in Table 8. 


FORTRAN CONTROL RECORDS 


Before a FORTRAN program is compiled, the user 
can specify certain options by means of control 
records which must precede the source program 

_ and can be in any order. The [OCS and NAME 
control records can be used only in mainline 
programs; the others can be used in both mainline 
programs and subroutines. 


@ Table 8. 1/0 Logical Unit Designations 







Console printer Output only 


1442 Card Read 


Punch 






80 








Input/output 


1132 Printer 1 carriage 


Output only 
control + 120 








1134-1055 
Paper Tape 
Reader/Punch 


80, plus max. of 
80 case shifts for 
PTTC/8 code, 

plus NL code. 


80 


Input/output 












Keyboard Input only 








1627 Plotter Output only 120 
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Logical 
Unit Kind of Record Size 
Number Device Transmission Allowed 

















All FORTRAN control records have the following 
format: 


Column 1: * (asterisk) 
2-72: Option 


FORTRAN control records can be written in 
free form, no comments allowed. Any 
unrecognizable control records are considered 
as comments control records. , 

FORTRAN control records and their meanings 
are listed below. A summary is contained in 
Table 9. 


*IOCS (CARD, TYPEWRITER, KEYBOARD, 1132 
‘PRINTER, PAPER TAPE, DISK, PLOTTER) 


_This record is required to specify any 1/O device, 


that is to be used during execution of the program; ‘ 
however, only the devices required should be 
included. Because the *IOCS record can appear 
only in the mainline program, it must include all 
the I/O devices used by all FORTRAN subprograms 
that will be called. The device names must be in 
parentheses with a comma between each name. 
FORTRAN subprograms written in assembly 
language can use any I/O subroutines for any 
device that is not mentioned in *IOCS and that is 


- not on the same interrupt level as a device in 


*IOCS. Otherwise, the subprograms must use 
FORTRAN I/O routines (CARDZ, PAPTZ, PRNTZ, 
WRTYZ, TYPEZ, DISKZ, PLOTX). © 


*LIST SOURCE PROGRAM 


The source program is listed as it is read in. 


*LIST SUBPROGRAM NAMES 
The names of all subprograms (including 


EXTERNAL subprograms) called directly by the 
compiled program are listed. 


*LIST SYMBOL TABLE 
The following items are listed: 
e Variable names and their relative addresses 


e Statement numbers and their relative addresses 


) Table 9. Summary of FORTRAN Control Records 


* NAME XXXXX 


* IOCS (CARD, TYPEWRITER, KEYBOARD, 1132 PRINTER, PAPER TAPE, 


DISK, PLOTTER) 
**header information to be printed on each compiler output page 
* ONE WORD INTEGERS 

EXTENDED PRECISION 

ARITHMETIC TRACE 

TRANSFER TRACE 

LIST SOURCE PROGRAM 

LIST SUBPROGRAM NAMES 

LIST SYMBOL TABLE 


LIST ALL 


e Statement function names and their relative 
addresses 


e Constants and their relative addresses 


*LIST ALL 


The source program, subprogram names, and 
symbol table are listed. If this control record is 
used, the other LIST control records are not 
required. 


*EXTENDED PRECISION 


Variables and real constants are stored in three 
words instead of two, and the compiler generates 
linkage to extended precision routines. 


*ONE WORD INTEGERS 


Integer variables are allocated one word of storage 
rather than the same allocation used for real 
variables. Whether this control record is used or 


(XXXXX = program name to be printed on listing) 


Delete any not used 


(Store integer variables in one word) 


(Store floating point variables and constants in 3 words instead of 2) 


(Switch 15 ON to print result of each assignment statement) 


(Switch 15 ON to print value of IF or Computed GOTO) 
(List source program as it is read in) 

(List subprograms called directly by compiled program) 
(List symbols, statement numbers, constants) 


(List source program, subprogram names, symbol table) 





not, integer constants are always contained in one 
word. When this control record is used, the 
program does not conform to the ASA Basic 
FORTRAN standard for data storage, and it may 
require modification in order to be used with 
other FORTRAN systems. 


*NAME XXXXX 


The program name represented by XXXXX is printed 
on the listing. XXXXX is five consecutive 
characters (including blanks) starting at the first 
non-blank column. This control record is used 

only on mainline programs, since subprogram 
names are automatically taken from the 

FUNCTION or SUBROUTINE statement. 


**Header Information 


The information between columns 3-72 is printed 
at the top of each page of compilation printout when 
an 1132 Printer is the principal system printer. 


*ARITHMETIC TRACE 


The compiler generates linkage to trace routines 
which are executed whenever a value is assigned to 
a variable on the left of an equal sign. If Console 
Entry Switch 15 is turned on at execution time and 
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program logic (see Optional Tracing) does not 
prevent tracing, the value of the assigned variable 


is printed as it is calculated. 


*TRANSFER TRACE 


The compiler generates linkage to trace routines 
which are executed whenever an IF statement or 
Computed GOTO statement is encountered. If 
Console Entry Switch 15 is turned on at execution 
time and program logic (see Optional Tracing) does 
not prevent tracing, the value of the IF expression 
or the value of the Computed GOTO index is printed. 

If tracing is requested, an *[0CS control record 
must also be present to indicate that either type- 
writer or printer is needed. If both typewriter 
and printer are indicated in the *IOCS record, the 
printer is used for tracing. 

The traced value for the assignment of a 
variable on the left of an equal sign of an arithmetic 
statement is printed with one leading asterisk. 

For the expression of an IF statement, the traced 
value is printed with two leading asterisks. The 
traced value for the index of a Computed GOTO 
statement is printed with three leading asterisks. 


Optional Tracing 


The user can elect to trace only selected parts of 
the program by placing statements in the source 
program logic flow to start and stop tracing. This 
is done by executing a CALL to either subroutine: 


CALL TSTOP (to stop tracing) 
CALL TSTRT (to start tracing) 


Thus, tracing occurs only if: 


e The trace control records were compiled with 
the source program. 


@ Console Entry Switch 15 is on (can be turned 
off at any time). 


@ ACALL TSTOP has not been executed, or a 
CALL TSTRT has been executed since the last 
CALL TSTOP. 
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Operating Notes - *LIST Control Cards 


A constant in a STOP or PAUSE statement is 
treated as a hexadecimal number. This hexadecimal 
number and its decimal equivalent appear in the list 
of constants. 

Variables and constants that require more than 
one word of storage have the address of the word 
nearest the zero address of the machine. In the 
case of arrays, the given address refers to the 
addressed word of the first element. In the case of 
a two- or three-word integer, the integer value is 
contained in the addressed word. The first variable 
listed might not be addressed at 0000 because room 
may be required for generated temporary storage 
locations. 

The relative address for variables not in 
COMMON would be the actual address if the program 
started at storage location zero. The relative ad- 
dress for variables in COMMON would be the actual 
address if the machine had 32K storage. The Loader 
makes any necessary adjustments. Variables in 
COMMON are adjusted to reside in the high-order 
core location of the machine being used (e.g. , first 
COMMON variable will be loaded to 8191 on an 8K 
machine). 

Loading begins at core location 01C2 (450 deci- 
mal). The DISKZ routine is used regardless of 
what disk routine is requested on the XEQ control 
record (refer to Origins for Core Loads). 


FORTRAN PRINTOUTS 


Compilation Messages 


Near the end of the compilation, core usage 
information and the features supported (control 
records used) are printed out as follows: 


FEATURES SUPPORTED 
EXTENDED PRECISION 
ONE WORD INTEGERS 
TRANSFER TRACE 
ARITHMETIC TRACE 
10CS 
CORE REQUIREMENTS FOR XXXXX 
COMMON YYYYY VARIABLES YYYYY PROGRAM YYYYY 


where XXXXX is the name of the program 
designated in the *NAME control record or in the 
SUBROUTINE or FUNCTION statement, and 
YYYYY is the number of words allocated for the 
specified parts of the program. In addition, all 
unreferenced statement numbers are listed un- 
conditionally. 


Compilation Error Messages 


During compilation a check is made to determine 
if certain errors have occurred. If one or more 
of these errors h&fave been detected the error 
indications are printed at the conclusion of 
compilation, and no object program is stored on 
the disk. Only one error is detected for each 
statement. In addition, due to the interaction of 
error conditions, the occurrence of some errors 
may prevent the detection of others until those 
which have been detected are corrected. With the 
exception of type 00 messages listed below, the 
error message appears in the following format: 


C NN ERROR IN STATEMENT NUMBER XXXXX + YYY 


NN is the error number described in Appendix A. 
With the exception of specification statement errors, 
XXXXX is the last valid statement number preceding 
the erroneous statement and YYY. is the count of 
statements from XXXXX to the statement that is in 
error. If the erroneous statement has a valid state- 
ment number, XXXXX will be the statement in error 
and YYY will not be printed. 


For example: 


105 FORMAT (15, F8.4) 
110 IF (A-B) 10,30, 30 
A =A+1.0 
ABC B =B-2.0 (error CO1) 
135 GO TO 105 (error C43) 


This example will cause the following error messages 
to be printed. 


CO1 ERROR IN STATEMENT NUMBER 110 + 002 
C43 ERROR IN STATEMENT NUMBER 135 


For specification statements, XXXXX is always 00000 
and YYY is the count of the number of specification 
statements in error. YYY is never 000, i.e., for the 
first error YYY is 001. Specification statements are 
not counted unless they contain an error. Statement 
numbers on specification statements and statement 
functions are ignored. NN is the error code. 


For example: 


1 DIMENSION ___C (10,10) 

2. DIMENSION VD (5,5) 

3 DIMENSION E (6,6,,6) — (error C08) 
4 DIMENSION FF (4,4) 

5 DIMENSION __ G (2,2)) (error C16) 


This example will cause the following error messages 
to be printed. 


C08 ERROR AT STATEMENT 00000 + 001 
C16 ERROR AT STATEMENT 00000 + 002 


Error indications are printed at the conclusion 
of compilation, If a compilation error has occur- 
red, the message 


OUTPUT HAS BEEN SUPPRESSED 
is printed and no object program is punched, 


If at any time during the compilation the state- 
ment string overlaps the symbol table, or vice- 
versa, the remainder of the compilation is by- 
passed and the message 


PROGRAM LENGTH EXCEEDS CAPACITY 


is printed. 


Type 00 Error Messages 


Code and 
Message Meaning 
C 00 MON CALL A Monitor call was executed 
(via operator intervention) 
during the compilation; the 
compilation is terminated 
and control is returned to 
the monitor. 

C 00 OVER 50 The FORTRAN disk I/O 
DISK ERRORS AT routine encountered an 
SECTOR nnnn unrecoverable disk error 

during compilation; 

nnnn is the hexadecimal 

address of the bad sector. 

The working storage area 

on disk is too small to 

accommodate the string area 

and symbol table for the 
program being compiled; 

the compilation is 

terminated. 


C 00 WORKING 
STORAGE 
EXCEEDED 


The following message is printed for a normal 
end of compilation (with or without errors): 


END OF COMPILATION 
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//b RECORDS AT FORTRAN EXECUTION TIME 


During FORTRAN execution time, any //b record 
encountered by CARDZ or PAPTZ causes a WAIT to 
occur; when PROGRAM START is pressed, control 
is returned to the monitor supervisor. The super- 
visor searches for the next valid monitor control 
record entered from the reader. Only the //b 
characters on the record trapped by CARDZ or 
PAPTZ are recognized. Any other data entered in 
this record is not available to other routines in the 
monitor system. The record is not listed. For 
off-line listing purposes, however, this record can 
contain comments (e.g. // END OF DATA). 


KEYBOARD INPUT OF DATA RECORDS 


Data records of up to 80 characters can be read from 
the keyboard by a FORTRAN READ statement. Data 
values must be right-justified in their respective 
fields. 


Keyboard Operation 


If it is desirable to key in less than 80 characters, 
the EOF key can be pressed to stop transmittal. 
Also, the ERASE FIELD or BACKSPACE key can be 
pressed to restart the record transmittal if an error 
is detected while entering data. If the keyboard 
appears to be locked up, press REST KB to restore 
the keyboard. The correct case shift must be se- 
lected before data is entered. 


Buffer Status After Keyboard Input 


When the END FLD key is pressed prior to com- 
pleting a full buffer load of 80 characters, blanks 
are inserted in the remainder of the buffer. If more 
data is necessary to satisfy the list items, the re- 
maining numeric fields (I, E, or F) are stored in 
core as zeros and remaining alphameric fields 

(A or H) are stored as blanks. Processing is con- 
tinuous and no errors result from the above condi- 
tion. 


OBJECT PROGRAM PAPER 
TAPE DATA RECORD FORMAT 


Data records of up to 80 EBCDIC characters in 
PTTC/8 code can be read or written by the FOR- 
TRAN object programs. The delete and new-line 
codes are recognized. Delete codes and case shifts 
are not included in the count of characters. Ifa 


new-line code is encountered before the 80th char- 
acter is read, the record is terminated. If the 80th 
character is not a new-line code, the 81st character 
is read and assumed to be a new-line code. A new- 
line code is punched at the end of each output record. 


FORTRAN I/O ERRORS 

If input/output errors are detected during exe- 
cution, the program stops with an error code dis- 
played in the accumulator, The error displays and 
meanings are listed in Appendix A, Table A-11. 
If an input error is detected, zero values will be 
transmitted for each corresponding list element 
when the START key is pushed, Output errors 
will transmit nothing for the corresponding list 
elements. An exception to these general rules is 
the F009 error. When this error is detected, the 
conversion will continue as requested after the 
START key is depressed, 


When the output field is too small to contain 
the number, the field is filled with asterisks and 
execution is continued. 

The input/output routines used by FORTRAN 
(PAPTZ, CARDZ, PRNTZ, WRTYZ, TYPEZ) wait 
on any I/O device error or device not in a ready 
condition. When the devices are ready, press 
PROGRAM START to execute the I/O operation. 

Error detection in functional and arithmetic 
subroutines is possible by the use of source program 
statements. Refer to 'FORTRAN Machine and Pro- 
gram Indicator Tests" in the manual, IBM 1130 


FORTRAN Language (Form C26-5933). 


FORTRAN PROGRAMMING NOTES 


1, When performing synchronous transmit- 
receive (STR) operations in a FORTRAN program, 
the STR operations must be stopped before any 
disk I/O can be executed in the FORTRAN program, 
This includes FORTRAN disk READ and WRITE 
statements (DISKZ) and LOCAL or SOCAL condi- 
tions requiring the use of DISKZ, 


2. Any time an overlapped I/O operation (such 
as FIND) is performed, a subsequent interrupt 
will occur and remove the CPU from a WAIT 
status if it happens to be in such a status, 


3. Do not push PROGRAM STOP or IMMEDIATE 
STOP to try to stop FORTRAN program execution, 
This may result in destroying the monitor system 
cartridge, The recommended procedure to stop 
the execution during I/O operations is to cause the 
I/O device being used to become not ready, 
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SUBROUTINE LIBRARY 


The 1130 Subroutine Library consists of a group 
of subroutines that aid the programmer in making 
efficient use of the IBM 1130 Computing System. 
Descriptions of the subroutines and methods for 
programming them are contained in the publication, 
IBM 1130 Subroutine Library (Form C26-5929). 
The following paragraphs describe the use of 
the IBM-supplied subroutines and discuss pre- 
operative errors and I/O error restarts where 
special handling is required. 


PREOPERATIVE ERRORS 


A preoperative error is an error condition 
detected before an I/O operation is started. It 
denotes either an illegal LIBF parameter, an 
illegal specification in I/O area, or a device 
not-ready condition. This error causes a branch 
to location 0029 and the following conditions: 


Pe The Instruction Address Register displays the 
address 002A. 


e The Accumulator displays an error code 
represented by four hexadecimal digits. 


Digit 1 identifies the ISS called: 
1 - CARDO or CARD1 

2 - TYPEO or WRTYO 

3 - PAPT1 or PAPTN 

5 - DISKO, DISK1, or DISKN 

6 - PRNT1 

7 - PLOT1 


Digits 2 and 3 are not used. 

Digit 4 identifies the error: 

0 - Device not ready 

1 - Illegal LIBF parameter or illegal 
specification in I/O area 


e Location 0028 contains the address of the LIBF 
in question. 


The ISS is set up to attempt initiation of the 
operation a second time if the LIBF is reexecuted. 
Therefore, since the Loader stores a wait in- 
struction in location 0029 and an indirect branch 
to location 0028 in locations 002A and 002B, the 
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LIBF can be executed again by pressing PROGRAM 
START. 

When a pre-operative error is encountered the 
operator can: 


e Correct the error condition if possible and 
press PROGRAM START, or 


e Note the contents of the Accumulator and 
location 0028, dump core storage, and proceed 
with the next job. 


CARD SUBROUTINE (CARDO AND CARD1) ERRORS 
Error Parameters 


CARDO. There is no error parameter. If an error 
is detected during processing of an operation- 
complete interrupt, the subroutine loops 

internally, with interrupt level 4 on until the 1442 
becomes ready, and then retries the operation. 


CARD1. There is an error parameter. If an 
error is detected during processing of an 
operation-complete interrupt, the user program 
can elect to terminate (clear "routine busy"! and 
the interrupt level) or to retry. A retry consists 
of looping internally, with interrupt level 4 on 
until the 1442 becomes ready, and then 
reinitiating the function. 


1442 Errors and Operator Procedures 


If a 1442 error occurs, the 1442 becomes not ready 
until the operator has intervened. Unless the stop 
is caused by a stacker full (no indicator) or Chip 
Box indication, the 1442 card path must be 

cleared before proceeding. The 1442 error 
indicators and the position of the cards in the feed 
path should be used to determine which cards must 
be placed back in the hopper. 

For the card subroutines, a retry consists of 
positioning the cards as indicated in the following 
paragraphs and reinitiating the function whenever 
the card reader becomes ready. The card sub- 
routines will skip the first card, if necessary, 
on a read or feed operation, 


Hopper Misfeed. Indicates that card 2 failed to 
pass properly from the hopper to the read station 
during the card 1 feed cycle. 


Card positions after error: 


Read Station 


Punch Station 


Corner 


Stacker Hopper 





Error indicator: HOPR 

Operator procedure: When program halts, 
press NPRO to eject 
card 1, place card 1 in 
hopper before card 2, 
and ready the 1442. 


Feed Check (punch station). Indicates that card 1 
is improperly positioned in the punch station at the 


completion of its feed cycle. 


Card positions after error: 


Punch Station 


Read Station 


Hopper 





Error indicator: PUNCH STA 

Operator procedure: When program halts, 
empty hopper, clear 1442 
card path, place cards 1 
and 2 in hopper before 
card 3, and ready the 1442. 


Transport. Indicates that card 1 has jammed in 
the stacker during the feed cycle for card 2. 


Card positions after error: 


Punch Station 


Read Station 


Corner 


Stacker Hopper 





Error indicator: TRANS 

Operator procedure: When program halts, 
empty hopper, clear 
1442 card path, place 
cards 2 and 3 in 
hopper before card 4, 
and ready the 1442. 


Feed Cycle. Indicates that the 1442 took an 
unreque sted feed cycle and, therefore, cards 1, 
2, and 3 are each one station farther ahead in 
the 1442 card path than they should be. 


Card positions after error: 


Punch Station 


Read Station 





Error indicator: FEED CLU 

Operator procedure: When program halts, 
empty hopper, press 
NPRO to eject cards 
2 and 3, place cards 1, 
2, and 3 in hopper 
before card 4, and 
ready the 1442. 


Feed Check (read station). Indicates that card 1 
failed to eject from the read station during its 
feed cycle. 
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Card positions after error: 


Punch Station 


Read Station 


Hopper 





READ STA 

When program halts, 
empty hopper, clear 
1442 card path, place 
cards 1 and 2 in 
hopper before card 3, 
and ready the 1442. 


Error indicator: 
Operator procedure: 


Read Registration. Indicates incorrect card 
registration or a difference between the first and 
second reading of a column. 


Card positions after error: 


Punch Station 


Read Station 


Corner ——» 


Stacker 





READ REG 

See Feed check (punch 
station). Repeated 
failures of this type 
might indicate a machine 
malfunction. 


Error indicator: 
Operator procedure: 


Punch Check. Indicates an error in output punch- 
ing. 


Card positions after error: 


Punch Station 


Read Station 


Corner 


Stacker Hopper 
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Error indicator: PUNCH 


Operator procedure: When program halts, 
empty hopper, check 
card position and press 
NPRO to clear 1442 card 
path. If necessary, 
correct card 1 to pre- 
punched state. Place 
(corrected) card 1 and 
card 2 in hopper before 
card 3 and ready the 1442. 


CONSOLE PRINTER SUBROUTINE (TYPEO AND 
WRTY0) ERRORS 


If the carrier attempts to print beyond the manually 
positioned margins, a carrier restore (independent 
of the program) occurs. 

Subroutine printing begins wherever the carrier 
is positioned as a result of the previous print 
operation. There is no automatic carrier return 
as a result of an LIBF. 

If the console printer indicates a not-ready 
condition after printing has begun, the sub- 
routines loop internally, with interrupt level 
4 on, waiting for the console printer to become 
ready. Operator procedures are as follows: 


1. Press IMM STOP on the console. 
2. Ready the console printer. 
3. Press PROGRAM START on the console. 


KEYBOARD SUBROUTINE (TYPE0O) FUNCTIONS 


Re-entry 


When the Erase Field key is pressed, a character 
interrupt signals the interrupt response routine 
that the previously-entered keyboard message is 
in error and will be reentered. The routine 
prints two slashes on the console printer, 
restores the carrier to a new line, and prepares 
to replace the old message in the I/O area with 
the new message. The operator then enters the 
new message. The old message in the I/O area 
is not cleared. The new message overlays the 
previous message, character by character. If 
the previous message was longer than the new 
message, characters from the previous message 
remain (following the NL character which 
terminated the new message). 


Backspace 


When the backspace key is pressed, the last graphic 
character entered is slashed and the address of the 
next character to be read is decremented by +1. 

If the backspace key is pressed twice consecutively, 
the character address is decremented by +2, but 
only the last traphic character is slashed. For 
example, assume that ABCDE has been entered 

and the backspace key pressed three times. The 
next graphic character replaces the C, but only 

the E is slashed. If the character F had been 

used for replacement the paper would show 
ABCDEFFF but ABFFF would be stored in the 
buffer. 


PAPER TAPE SUBROUTINES (PAPT) 


If the reader or punch becomes not ready during 
an I/O operation, the subroutines exit to the user 
- via the error parameter. The user can request 
the subroutine to terminate (clear device busy 
and interrupt level) or to loop on not-ready 
waiting for operator intervention (interrupt 
level 4 on). | 

The following procedure should be used to 
clear a paper tape not-ready condition: 


1. Press IMM STOP on the console. 
2. Ready the paper tape unit. 
3. Press PROGRAM START on the console. 
To load the paper tape reader, place the tape 
so that the delete characters punched in the 
leader are under the read starwheels. To 
begin reading at any point in the tape other than 
the leader, place the tape so that the frame 
(character position) preceding the character 
to be read is under the read starwheels. The 
first start reader control after tape is loaded or 
repositioned causes the reader to skip the 
character under the read starwheels and load the 
next character into the buffer. 


ADDING AND REMOVING SUBROUTINES 


Subroutines can be added to or removed from the 
subroutine library as desired by the user. The 
DUP control record STORE adds a subroutine, and 
the DUP control record DELETE removes a 
subroutine. Each subroutine in the IBM- 
supplied System Deck is preceded by a DUP 
STORE record. 

The user should not remove subroutines that 
are called by other subroutines left in the 
library (refer to Appendix E for a list of 
subroutines called by other subroutines), 
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SYSTEM GENERATION OPERATING PROCEDURES (CARD SYSTEM) 


Before the Disk Monitor System can begin 
operation, the user must perform the following 
functions: 


1. Load and execute the IBM-supplied Disk 
Pack Initialization Routine (DPIR) to 
initialize the disk pack. 

2. Prepare a Load Mode Control Card and 

System Configuration Cards, and insert 

these cards into the IBM-supplied System 

Deck. 

Load the above deck into the disk. 

4. Using the IBM-supplied Cold Start Card, 
load the Supervisor program into core 
storage from disk storage. 


Co 


Each of the above procedures is described in 
detail in subsequent sections of this manual. 


DISK PACK INITIALIZATION ROUTINE (DPIR) 


The DPIR (Disk Pack Initialization Routine) 
performs the following functions: 


1. Clears the disk and writes disk sector 
addresses on all cylinders. 

2. Determines which, if any, sectors are 
defective and writes the addresses of the 
cylinders containing the defective sectors 
on sector 0000. If sector 0000 is defective, 
DPIR does not write any defective cylinder 
table. 

3. Puts an ID on the disk pack. 


The 1130 Disk Routines operate effectively with up 
to three cylinders containing defective sectors. 
An attempt to read or write a defective sector 
that is not identified in sector 0000 results in a 
read or write error after the operation has been 
attempted 10 times. 

At the completion of DPIR, an eight-word table 
is written on sector 0000. The first word (word 0) 
of the table contains the sector address 0000. 
Words one, two, and three contain the first sector 
address of any defective cylinders found (maximum 
of three). When there is no defective cylinder, 
these words contain 0658,,. Word 4 is reserved. 
Words five, six, and seven contain a five character 
ID name in packed EBCDIC. Words five and six 
contain two characters per word, and word seven 
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contains an EBCDIC character in the left half of the 
word and an EBCDIC blank in the right half of the 
word. 

To determine which sectors are defective, the 
user can dump core upon completion of execution; 
the defective sector table starts at location 0771. 


Table 10 lists the DPIR halt addresses. 


DPIR Card Load Operating Procedures 


The procedure for loading and executing the Disk 
Pack Initialization Routine is as follows: 


1. Load the disk pack in the console cabinet, turn 


the File Switch on, and wait for the FILE READY / 


light to come on. 

Put the six-card loader, followed by the DPIR 
deck, in the card hopper. 

Set the console mode switch on RUN. 

Press IMM STOP, then RESET on the console. 
Press START on the card reader. 

Press PROGRAM LOAD on the console; when 
all cards have been read from the hopper, press 
START on the card reader. 


m ob oo 


After DPIR is loaded, the routine waits at 02EE 
and the keyboard is selected. (The keyboard Select 
light comes on.) Wait for the File Ready light to 
come on and then: 


1. Enter a five-character ID (of your choice) to be 


written on the disk pack. If the ID is less than 
five characters, left-justify by following the ID 
with spaces. Only those characters recognized 
by the Supervisor should be used (see Appendix 


D). When the fifth character is entered, the pro- 


gram branches to execute. The disk surface is 


now cleared and the sector addresses are written. 


The routine waits at 03C2. 


2. Set all the Console Entry switches off. 

3. Press PROGRAM START. The defective 
sector and file protect address data is written 
on sector 0000. A scan of the disk is now 
performed to check for seek failures. If a 
seek or read failure occurs, the routine waits 
at O3EA. Other DPIR halt addresses are 
described in Table 10. 


@ Table 10. DPIR Halt Addresses 


ig eae Meaning Action Required 


The keyboard is not restored and an attempt is made to load DPIR. 
The routine loads and comes to a halt with interrupt 4 on. 


The routine is in WAIT. 


Sector 0000 is defective; the sector addresses have been written 
on the disk, but the table has not been written on sector 0000. 
(7OFF loop) 


tine is in WAIT. Turn the console entry switches off; then press 
eee vas PROGRAM START on the console. 


The routine has run successfully, but more than three defective 
sectors were found. (7OFF loop) 


The routine has run successfully and no defective sectors were 


found. (70FF loop) 


The routine has run successfully and one to three defective 
sectors were found. (ZOFF loop) 


(1) The disk is not ready (70FF loop) (1) Make the disk ready and restart the program 

(2) Turn off the Single Disk Storage, allowing the 
cartridge unlock indicator to light; turn on the 
Single Disk Storage until the disk ready indicator 


A seek failure or read failure occurred during a scan of the lights, then resume operation. If the error per- 
disk. (7OFF loop) sists, CE intervention is required. 


(2) A Write Select error has occurred (70FF loop). The file 
ready indicator is turned off by a Write Select error. 





“Displayed in Storage Address Register 


USER-SUPPLIED CARDS missing or invalid user-supplied cards (see 
Appendix A). 
Before loading the Disk Monitor System programs 


onto the disk, the user must prepare the following Load Mode Control Card 
cards: peatrge Se et te, oe 
1. Load Mode Control Card The Load Mode Control Card is used to specify an 
2. System Configuration Deck: initial load or a reload. It also permits the user 
a. SCON Card to specify whether the assembler and/or FORTRAN 
b. REQ Card(s) is to be loaded. At least one of these must be loaded 
c. TERM Card on an initial load; then, if desired, it can be re- 
* moved by using the DEFINE function of DUP. The 
The System Loader will give error messages for format is shown in Table 11 (only columns 1 through 


Table 11. Load Mode Control Card Format 


Initial load. Monitor System programs, ILS and ISS subroutines required by the system, and functional subroutines 
are loaded. However, the assembler will! not be loaded if column 2 contains a 0 punch, and FORTRAN will not be 
loaded if column 2 contains a 1 punch, 


No 12 Punch Reload. Monitor System programs are reloaded, and the contents of the User and Fixed areas (including LET/FLET) 
are not changed. Only programs presently on the disk can be reloaded; if the assembler or FORTRAN were not 


loaded during an initial load, or have since been deleted, they cannot be reloaded. 


0 Punch Bypass (do not load) assembler. 
No 0 Punch Load assembler. 


1 Punch Bypass (do not load) FORTRAN. 
No 1 Punch Load FORTRAN. 


Required in all cases to identify Load Mode Control Card. 
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3 are used). For example, to initially load the 
monitor (including the assembler and FORTRAN), 
the Load Mode Control Card is punched with a 12 
punch in column 1 and a 9 punch in column 3. 


System Configuration Deck 


SCON Card 


The SCON Card is the deck header card. The 
format is as follows: 


Columns Contents 


1-4 SCON 


Table 12. REO Card Format 









Columns 


a 


Bais 


1442 Card Read Punch 1 
Input keyboard and console 2 
printer 

1134 paper tape reader or REQ 3 
1055 paper tape punch 

Disk 4 
1132 Printer 6 
Plotter 7 


NOTE: If both the console printer and the 1132 Printer are included, 
the 1132 Printer will be the principal printing device; if 

both the 1442 Card Read Punch and the 1134/1055 paper tape 
units are included, the 1442 Card Read Punch will be the 
principal I/O device. 









(Primary | (Second 
Interrupt | Interrupt 
Branch | Branch 
Address | Address 
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REQ Cards 


REQ Cards identify devices present in system. One 
card should be prépared for each I/O device on the 
system. The System Loader uses this information 
for selective generation and loading of ILS sub- 
routines and selective loading of ISS subroutines. 
The format is shown in Table 12. 


TERM Card 


The TERM Card is the last card of the System 
Configuration Deck. The format is as follows: 


Columns Contents 


1-4 TERM 


PROCEDURE FOR INITIALIZING DISK MONITOR c. IBM-supplied System Loader Deck, Part 2. 


SYSTEM FROM CARDS Columns 73-74 contain the ID: E2. 
d. User~-supplied System Configuration Deck 
1. Execute the following: (SCON Card, REQ Cards, TERM Card). 
a. Press IMM STOP on console. e. Remainder of IBM-supplied System Deck. 


b. Press RESET on console. 


3. +E t lowing: 
c. Press NPRO on the 1442 card reader. mace De doe yA Be 


a. Ready the 1132 Printer (if the 1132 Printer 
is the principal print device) 


2. Load the following decks into hopper of the b. Turn the File Switch on, and wait for the 
1442 card reader (see Figure 10). File Ready light on the console to go on. 
a. Monitor System Bootstrap, followed by IBM- c. Press START on the 1442 card reader. 
supplied System Loader Deck, Part 1. d. Press RESET on console. 
Columns 73-74 contain the ID: E1. e. Press PROGRAM LOAD on console. 
b. User-supplied Load Mode Card, f. The system waits at 0029. 


Two Blank Cards 





Remainder of System Deck 


(IBM Supplied) 


System Configuration Deck | 
(User Supplied) REQ Card(s) 


Load Mode Card 







System Loader Deck - Part 2 
(IBM Supplied) 


Columns 73-74 contain ID: E2 


System Loader Deck - Part } 
(IBM Supplied) 
Columns 73-74 contain ID: E] 


a———— Monitor System Bootstrap 
(IBM-supplied) - 6 Cards 


Figure 10. System Loader Card Sequence 
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COLD START OPERATING PROCEDURE 


The user must load the Supervisor Program into 
core storage from disk storage by using the 
IBM-supplied Cold Start Card (last card of sub- 
routine deck) or Cold Start paper tape record: 


1, to begin operation of the Disk Monitor System 
after it has been loaded to the disk; 

2, to return control to the Supervisor; 

3. after a disk cartridge has been changed, 


The procedure for executing the Cold Start Card 
is as follows: 


1. Insert the monitor disk pack in the console 
cabinet. 

2. Turn the File Switch on, and wait for the File 
Ready light on the console to go on. 

3. Put the Cold Start Card into the card hopper 
followed by a //JOB record and another monitor 
control record to processed, 

4, Press IMM STOP, then RESET on the console. 

Press START on the card reader. 

6. Press PROGRAM LOAD on the console. 


on 


The Cold Start record reads the Cold Start 
sector (0001) from disk into core location 0802. 
The Monitor Supervisor Program is then read into 
core. The first monitor control record is read 
under control of the Supervisor Program by the 
Monitor Control Record Analyzer routine. 

Possible stopping locations are given in Table 18. 


NOTE: A cold start cannot be used to resume an 
operation that has been previously terminated. 
After the Supervisor has been loaded into core, the 
following procedure may be used: 


Press NPRO on the card reader. 

Place program deck in the card hopper. 
Press START on the card reader. 

Press PROGRAM START on the console. 


Pon eH 


Table 13. Cold Start Halt Addresses 


os 


The disk was not ready and the first XIO was 
treated as a NOP 







The disk was not ready and the second XIO 
was treated as a NOP 














There was a Disk Data Error 
Disk not ready 
Disk not ready 
Sector QO0A was not read correctly 
Disk not ready 
Sector 0009 was not read correctly 
Disk not ready 
Sector 0008 was not read correctly 


There was a Disk Data Error 
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All of the paper tape records needed to load the 
Paper Tape Monitor System to disk storage are 
supplied to the user by IBM. These records have 
the same functions as the corresponding IBM- 
supplied and user-written card decks. These 
functions are described under System Generation 
Operating Procedures (Card System). 

The Load Mode Control record and System 
Configuration records are supplied by IBM to the 
user of the Paper Tape System. These tapes are 
supplied with all the possible configurations, and 
the user need only select the configuration for his 
particular use. If these tapes are not read 
correctly, the System Loader will give error 
messages (see Appendix A). 

The tapes constituting the Paper Tape Monitor 
System are described below. The procedure for 
loading these tapes onto disk is described under 


Procedure for Initializing Disk Monitor System 
from Paper Tape. 


Tape Description 
1 System Loader, Part 1 
2 Load Mode Control Record (same 
function as Load Mode Control 
Card) 
3 System Loader, Part 2 
4 System Configuration Records 


(same function as System 
Configuration Deck) 
5 Supervisor Tape (includes the 
Loader) 
Disk Utility Program 
FORTRAN Compiler 
Assembler 
10 ILS Control Records and Library 
Subroutines (2 parts) 


co on 


“ 


11 DPIR Tape (includes core image 
loader) 
16 Cold Start Paper Tape Record 


If FORTRAN and/or the assembler are not to 
be loaded during an initial load, the corresponding 
tapes (7 and/or 8) need not be read. 


PAPER TAPE MONITOR SYSTEM 


During a reload of system programs, tapes 1 
through 5 must be read. If DUP, FORTRAN, 
and/or the assembler are not to be reloaded, the 
corresponding tapes (6, 7, and/or 8) need not be 
read. The procedures for reloading DUP, 
FORTRAN, and the assembler are the same as 
the card system procedures. Tapes 9 and 10 need 
not be read during a reload operation. 


DPIR PAPER TAPE LOAD OPERATING 
PROCEDURES 


The procedure for loading and executing the DPIR 
(Disk Pack Initialization Routine) is as follows: 


1. Insert the disk pack in the console cabinet. 
2. Put the DPIR tape in the reader; position one 
of the delete codes that appear after the 

program name in the leader under the 
read starwheels. 

3. Press IMM STOP, RESET, and PROGRAM 
LOAD on the console. 

4. When the loader reads in and waits, position 
the DPIR tape. 

5. Press PROGRAM START on the console. 


From this point on, the operation is identical 
to the card load. 


PROCEDURE FOR INITIALIZING DISK MONITOR 
SYSTEM FROM PAPER TAPE 


To load the paper tape system onto disk, the 
operator must perform the following steps: 


1. Ready the 1132 printer (if the 1132 printer is the 
principal printing device). 

2. Place the System Loader, Part 1, (Tape 1) in the 
Paper Tape Reader. When loading tapes 1 through 
10, and 16, position any one of the delete codes 
following the program name in the tape leader 
under the read starwheels. 

3. Press RESET on the console. 
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4. Press PROGRAM LOAD on the console. Tape 1 
is read into core starting at location 0. 

5. When a WAIT occurs (at 05BC), place the 
Load Mode Control tape (Tape 2) in the 
Paper Tape Reader. 

6. Press PROGRAM START on the console, 

7. When a WAIT occurs, place the next system 
tape in the Paper Tape Reader. 

8. Press PROGRAM START on the console. 

9. Repeat steps 7 and 8 until the last system 
tape is read. 


The System Loader determines if the complete 
system has been loaded. If the system has not 
been loaded, the System Loader WAITs for 
another tape to be readied by the operator until 
the complete system is loaded. 

A WAIT at OEA6 is a checksum error, 
indicating faulty tape. 


COLD START OPERATING PROCEDURE 


The procedure for executing the Cold Start 
paper tape record is as follows: 
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1. Insert the monitor disk pack into the console 
cabinet. 

2. Turn the File Switch on, and wait for the File 
Ready light on the console to go on. 

3. Put the Cold Start paper tape record into the 
reader; position any one of the delete codes 
following the program name in the tape 
leader under the read starwheels. 

4. Press IMM STOP, then RESET on the console. 

Press PROGRAM LOAD on the console. 


on 


PAPER TAPE CONTROL RECORDS 


Paper tape control records must be punched in 
PTTC/8 (perforated tape transmission code). 

The formats are the same as the previously- 
described card formats. Paper tape control 
records must be separated by one NL (new 

line) control character. A control record which 
immediately follows paper tape data not followed 
by an NL code must be preceded by one NL code. 
Delete codes may precede or follow this NL code. 


APPENDIX A. ERROR MESSAGES 


Table A-1. System Loader Error Codes 


Error 
Code Type of Error Corrective Action 


Check-=sum error. Follow Procedure A or reload and restart, 
Illegal card type or blank card. Follow Procedure A or reload and restart. 
Card out of sequence. Follow Procedure A or reload and restart. 


ORG backward to an address lower than that established Inspect deck for card(s) missing or out of sequence, Correct deck 
by last sector break card. and reload edit program, 


Error in Load Mode card. Make necessary card correction and reload edit program. 
Disk error. Press PROGRAM START on console to retry. 


Disk pack not initialized or Sector 0 data damaged, Use DPIR program to initialize Sector 0. Initial load should follow 
since DPIR clears the disk, 


Configuration deck missing or one of the following errors Make corrections and reload edit program, 
detected: 

SCON card not followed by REQ cards. 

less than 2 REQ cards present. 

more than 6 REQ cards present. 

Secondary Interrupt Branch Address (IBA) not included 

in ISS #1 card, 

Secondary IBA not equal to 12. 

Primary [BA not in range 8 through 12. 

{SS number missing or negative. 

ISS number 5 detected (illegal) . 

ISS number greater than 7. 

TERM card missing 


File protect address (in COMMA) prohibits loading System No recovery unless file protect address can be lowered by deleting 
Loader, Part 2. part of material on disk. System Loader requires temporary use of 
Cylinders 198 and 199, 


During reload, old FORT or ASM address in COMMA is if COMMA has been damaged, an initial load is required; otherwise 
different from new FORT or ASM sector address. system program. deck is faulty. 


Fixed area or Core Image Buffer area, as defined by Same as E10. 
COMMA, is about to be overlayed. 





* Applies to initial load only. 
** Applies to reload only. 


Procedure A: 


1. Lift remaining cards from hopper and depress NPRO on 1442, 
2. Place the two ejected cards (after corrections) in card hopper. 
3, Replace remaining cards in card hopper. 

4, Press START on 1442, 

5. Press PROGRAM START on console. 
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Table A-2, System Loader (Part 1) Wait Locations 


Table A-4. Monitor Supervisor Error Messages 


Error Message Cause of Error 


Wait after displaying E6 error 
Wait after displaying E1 error 
Wait after displaying E3 error 
Wait after displaying E2 error 


Wait after displaying E8 error 


Wait after displaying E5 error 


Wait after displaying E9 error 
Wait after displaying E8 error 
Wait after displaying E4 error 
Wait after displaying E7 error 


Wait after displaying E4 error 


Wait during loading of the System Loader due to 
incorrect check sum, e.g., a missing card or 


card out of sequence. 
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Table A-3. 


System Loader (Part 2) Wait Locations 


Wait after displaying E 10 error 
Wait after displaying E 10 error 
Wait after displaying E 11 error 
Wait after displaying E 1 error 
Wait after displaying E 3 error 
Wait after displaying E 2 error 
Wait after displaying E 5 error 
Wait after displaying E 3 error 
Wait after displaying E 4 error 
Wait after displaying E 2 error 


Wait after displaying E 6 error 


Wait after displaying END reload 





*Displayed in Storage Address Register 
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M 01 PHASE NONX 


M 02 INVALID 


M03 NON XEQ 


M 04 CHARACTER 


M 05 OFLO DISK 


M06 NO PROGRAM 


M 07 NON DUP 


M 09 RECORD TRAP 


M11 NOT IDENT 


M 12 SEQ ERROR 


M 13 T ERROR 


Execution is not permitted for this job. 


The above listed record is an invalid 
Supervisor record. 


The currently called execution is not 
permitted. 


A character in the name listed above 
is not permitted, 


The records listed above were too many 
for the disk storage allocated, 


The mainline program name listed above 
is not in the LET or FLET table or is not 
a mainline program. 


DUP is not allowed for the subjob. 


A system program detected a Supervisor 
record and returned control to the 
Supervisor. 


The cartridge identifier on the cartridge 
is not identical to the one on the input 
record. The Supervisor waits to allow 
the operator to rectify the difference if 
desired. 


LOCAL, NOCAL, and/or FILES records 
are intermixed (they must be grouped). 


Column 8 in the JOB record does not 
contain a blank ora T. An ampersand 
is printed in place of the illegal char- 
acter. The Supervisor waits so that the 
operator can (1) correct the JOB record, 
reload it in the reader, and press 
PROGRAM START on the console; or 

(2) press PROGRAM START on the 
console, In either case the JOB record 
is processed completely before any other 
processing. The job is considered non- 
temporary if column 8 contains a blank 
or a character other thana T. 





eTable A-5, Monitor Supervisor Wait Locations 


Operator pressed PROGRAM STOP on the console. Press PROGRAM START to continue. 


I/O error or device not-ready condition. Refer to Subroutine Library - Preoperative Errors. 


Disk error, Press PROGRAM START to retry. 
1. Pause due to PAUS contro! record. 1. Press PROGRAM START to continue. 


2. Identifier error in JOB control record. 2. Correct the record, reenter it, and press PROGRAM START; or press 
PROGRAM START. 


Paper tape reader not ready. Read er tape reader and press PROGRAM START. 
P P y Y pap’ Pp Pl 


Column 8 in the JOB record does not contain s,blank or Correct the record, reenter it, and press PROGRAM START; or press 
aT. PROGRAM START. In either case, the current job is processed first, 
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@ Table A-6. Loader Messages/Error Messages (Part 1) 


Code and Message Explanation and Recovery Procedures 


R Ol 
*R 03 
*R 04 
R 06 


R 08 


**R 16 
**R 17 


**R 18 


**R 19 
**R 20 


**R 21 


**R 22 


i*tR 23 


ORIGIN BELOW 1ST WORD OF MAINLINE 
LOAD REQUIRES SYSTEM LOCALS, LEVEL 1 
LOAD REQUIRES SYSTEM LOCALS, LEVEL 2 
FILE(S) TRUNCATED (SEE FILE MAP) 

CORE LOAD EXCEEDS 32K 

LIBF TV REQUIRES 82 OR MORE ENTRIES 
TOO MANY ENTRIES IN LOAD-TIME TV 
LOCALS/SOCALS EXCEED WKNG. STORAGE 
DEFINED FILE(S) EXCEED WKNG. STORAGE 
XXXXX 1S NOT IN LET OR FLET 

XXXXX CANNOT BE DESIGNATED A LOCAL 


XXXXX CANNOT BE DESIGNATED A NOCAL 


XXXXX IS NOT ON A SECTOR BOUNDARY 
XXXXX COMMON EXCEEDS THAT OF ML 


XXXXX PRECISION DIFFERENT FROM ML 


XXXXX AND ANOTHER VERSION REFERENCED 


XXXXX IS A USER AREA FILE REFERENCE 


*FORTRAN mainline programs only 
**XXXXX = the name of the program or disk file concerned 
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The Loader has been instructed to load a word into an address lower than that of the 
first word of the mainline program. The ORG statement which caused this situation 
must be removed, or the mainline program must start at a lower address, 


No error. The load was too long to fit into core. The Loader has made two overlays, 
and the program will be executed with these two groups of routines overlaying each 


other (refer to System Overlays). 


No error. The load was too long to fit into core. The Loader has made three overlays, 
and the program will be executed with these three groups of routines overlaying one 


another (refer to System Overlays). 


At least one defined file has been truncated either because the previously defined 
storage area in the User or Fixed area was inadequate or because there is inadequate 
Working Storage available to store the file. See Message R 12 for a possible remedy. 


The Loader has been instructed to load a word into an address exceeding 32, 767, which 
is a negative number, The loading process is immediately terminated, because the 
Loader cannot process negative addresses. This error was probably caused by bad data, 
i.e., the program being loaded from the disk has been destroyed. 


There are at least 82 different entry points referenced in the load by LIBF statements. 
A possible remedy would be to subdivide the load into two or more links. 


There are more than 135 references to different entry points with CALL and/or LIBF 
statements in the load. A possible remedy would be to subdivide the load into two or 
more links, 


There is insufficient Working Storage remaining to accommodate the LOCAL and/or 
SOCAL overlays required in the load, A possible remedy would be to create more 
Working Storage by deleting subroutines, subprograms, and/or data no longer required 
by the installation, 


There is insufficient Working Storage remaining to accommodate even one record of 
the defined file(s). See Message R 12 for a possible remedy. 


The program or data file designated in the message cannot be found in LET or FLET. 
A possible remedy is to store the program or data file. If the name cannot be explained 
otherwise, the program being loaded has probably been destroyed. 


The routine named in this message is either a type which cannot appear on a LOCAL 
record, or this routine, which is a LOCAL, has been referenced, directly or indirectly, 
by another LOCAL, the name of which cannot be supplied by the Loader. 


The routine named in the message is either a mainline, an ILS, or it has an invalid 
type code. In any case, it may not appear on a *NOCAL record. 


The area named in this message does not begin at a sector boundary, which implies 
that it is not a storage area but a relocatable program, and thus a possible error, 
Choose another area for the storage of this file. 


The length of COMMON for the routine named in this message is longer than that of 
the mainline program. A possible remedy is to define more COMMON for the mainline 


program. 


The precision for the routine named in this message is incompatible with that of the 
mainline program. Make the precisions compatible. 


At least two different versions of the same I/O routine have been referenced, e.g., 
both CARDZ and CARDO (FORTRAN utilizes the'’Z" version). Ifa disk routine is 
named in the message, it is possible that the XEQ record specifies one version, e.g., 
DISKO, whereas the program references another, e.g., DISK1 (a blank in col. 19 of 
the XEQ record causes DISKZ to be chosen). 


The area named in this message is in the User area; references in DEFINE FILE and DSA 
statements for *STORECI functions must be to the Fixed area. 





Table A-6. Loader Messages/Error Messages (Part 2) 


Code and Message Explanation and Recovery Procedures 


*R 24. XXXXX IS BOTH A LIBF AND A CALL 


*R 25.9 XXXXX HAS MORE THAN 14 ENTRY POINTS 


*R 26 XXXXX HAS AN INVALID TYPE CODE 


*R 27. XXXXX LOADING HAS BEEN TERMINATED 


**R 32 XXXXX CANNOT REF’CE THE LOCAL XXXXX 


R40 XXXX (HEX) = ADDITIONAL CORE REQUIRED 





, ***#R 41 XXXX (HEX) TOO MANY WDS IN COMMON 
R42  XXXX (HEX) 1S THE EXECUTION ADDR 
R43. XXXX (HEX) = ARITH/FUNC OVERLAY SIZE 


R44 XXXX (HEX) = FI/O + I/O OVERLAY SIZE 
R45 = XXXX (HEX) = DISK FI/O OVERLAY SIZE 


R46  XXXX (HEX) = AN ILLEGAL ML LOAD ADDR 


R47 XXXX (HEX) WORDS AVAILABLE 


*XXXXX = the name of the program or disk file concerned 
**XXXXX = the name of the program concerned 








The routine named in this message has been either referenced improperly, i.e., CALL 

instead of LIBF or vice versa, or has been referenced in both CALL and LIBF statements. 
The only remedy is to reference the routine properly. NOTE: NOCALs must be CALL- 
type routines,"i.e., type 4 or 6 routines (refer to Appendix B). 


This message usually indicates that the routine has been destroyed since no routine is 
stored with more than 14 entry points. 













The routine named in this message has either been designated on an XEQ record and is 
not a mainline program, indicating a mistake has probably been made in preparing the 
XEQ record, or contains a type code other than 3 (subroutine), 4 (functional), 5 (ISS), 
or 6 (ILS), in which case the routine has probably been destroyed. This error could 

also be caused by a DSA statement referencing a program which is in Disk System format, 
ora CALL or LIBF referencing a program in Core Image or Disk Data format. 





The loading of the mainline program named in this message has been terminated as a 
result of the detection of the error(s) listed in the messages preceding this one. 


The routine named first in this message has referenced the routine named second, which 
isa LOCAL. Either the first named routine is a LOCAL or it is entered (directly or 
indirectly) from a LOCAL. Neither case can be allowed for it could cause a LOCAL 
to be overlaid by another LOCAL efore the first LOCAL has been completely executed, 







If the load was executed, XXXX}6 is the number of words by which it exceeded core 
storage before the Loader made it fit by creating special overlays (SOCALs); if the 
load was not executed, the first occurrence of the message is as described and the 
record indicates the number of words by which it exceeds core storage even after 
creating the deepest level of special overlays. A possible solution to the latter problem 
is to create two or more links or LOCALs. 












The length of COMMON specified in the mainline program plus the length of the core 
load exceeds core storage by XXXX16 words. 





No error. This message follows every successful conversion from Disk System format 
to Core Image format provided a core map is requested, 







No error. It has been necessary to employ the special overlays (SOCALs), and 
XXXX16 is the length of the arithmetic/functional overlay (refer to System Overlays). 








No error. It has been necessary to employ the special overlays (SOCALs), and 
XXXX1¢@ is the length of the FORTRAN 1/0, I/O, and conversion routine overlay 
(refer to System Overlays). 








No error. It has been necessary to employ the special overlays (SOCALs), and 
XXXX1¢ is the length of the Disk FORTRAN I/O overlay, including the 320-word 
buffer. 









XXXX16 is the address at which the loader has been requested to start loading the 
mainline program, but this address is lower than the highest address occupied by the 
version of Disk I/O requested for this load. Either make the mainline origin higher 
or request a shorter version of Disk, 





No error. XXXX]6 is the number of words of core storage not occupied by this core 
load. It is possible to get both this message and R41 in the same core load. See 
footnote to R41 for explanation. 


(Concluded) 


***COMMON may not occupy any storage location lower than 896;9, 121619, 121610, or 1536}0, 
if DISKZ, DISKO, DISK1, or DISKN, respectively, is used. 
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Table A-7. Assembler Error Messages 


Error Code and Error Message Corrective Action 


AQ] MINIMUM W. S, NOT AVAILABLE--- Perform a DUP DELETE to expand Working 
ASSEMBLY TERMINATED Storage to a minimum of 33 sectors before 
attempting further assemblies. 









Less than 33 sectors of Working Storage are 
available at the beginning of the assembly. 
































A0Q2 SYMBOL TABLE OVERFLOW EXCEEDS 4 CYLINDERS 1. Reduce number of symbols and 
reassemble, 
2. Divide program into segments and 


assemble each separately. 


Symbol table overflow exceeds 3392 
symbols (refer to Assembler Messages and 


Error Codes to compute number of symbols 
allowed in‘a program). 




















1. If error occured during pass 1, the 
assembler will wait at OAD6. When 
PROGRAM START is pressed, the 
assembly will continue in the two-pass 
mode, Therefore, the operator should 
first insure that the source statements 
can be read a second time without 
encountering the next monitor control 
record, 

2. If error occurred during pass 2, object 
output exceeds Working Storage. 

Perform a DUP DELETE to enlarge 

Working Storage. 


A03 DISK OUTPUT EXCEEDS W.S. Disk output is greater than Working 


Storage. 














( 

















Reduce number of symbols and/or correct 
the erroneous statements and reassemble, 


A 04 SAVE SYMBOL TABLE INHIBITED With SAVE SYMBOL TABLE option, symbol 
table exceeds the allowable System 
Symbol! Table size of 100 symbols, or at 


least one assembly error was detected, 
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Table A-8. FORTRAN Error Codes (Part 1) 


Error 
Number * Cause of Error 


Cc 01 Non=numeric character in statement number. 


Cc 02 More than five continuation cards, or continuation card 
out of sequence, 


C 03 Syntax error in CALL LINK or CALL EXIT statement, 


C 04 Undeterminable, misspelled, or incorrectly formed 
statement. 

Cc 05 Statement out of sequence. 

C 06 Statement following transfer statement or a STOP statement 


does not have statement number. 


C 07 Name longer than five characters, or name not starting 
with an alphabetic character. 


Cc 08 Incorrect or missing subscript within dimension information 
(DIMENSION, COMMON, or type). 


C 09 Duplicate statement number. 
C10 Syntax error in COMMON statement. 
Ci Duplicate name in COMMON statement. 


C12 Syntax error in FUNCTION or SUBROUTINE statement. 


C13 Parameter (dummy argument} appears in COMMON 
statement, 

C14 Name appears twice as a parameter in SUBROUTINE or 
FUNCTION statement. 

C 15 *IOCS control record in a subprogram, 

C16 Syntax error in DIMENSION statement. 

C17 Subprogram name in DIMENSION statement. 

C18 Name dimensioned more than once, or not dimensioned on 


first appearance of name. 


Cc 19 Syntax error in REAL, INTEGER, or EXTERNAL statement. 


C 20 Subprogram name in REAL or INTEGER statement. 

C 21 Name in EXTERNAL which is also in a COMMON or 
DIMENSION statement. 

C 22 {FIX or FLOAT in EXTERNAL statement. 

C 23 Invalid real constant. 

C 24 Invalid integer constant. 

C 25 More than 15 dummy arguments, or duplicate dummy 


argument in statement function argument list. 
C 26 Right parenthesis missing from a subscript expression. 


C 27 Syntax error in FORMAT statement. 


C 28 FORMAT statement without statement number. 
C 29 Field width specification >145, 
C 30 In a FORMAT statement specifying E or F conversion, 


w>127,d>31, ord>w, where w is an unsigned 


Table A-8. FORTRAN Error Codes (Part 2) 


Error 
Number* Cause of Error 


integer constant specifying the total field length of the 
data, and d is an unsigned integer constant specifying 

the number of decimal places to the right of the decimal 
point. 











Subscript error in EQUIVALENCE statement. 
Subscripted variable in a statement function. 
Incorrectly formed subscript expression. 
Undefined variable in subscript expression. 


Number of subscripts in a subscript expression does not 
agree with the dimension information. 















Invalid arithmetic statement or variable; or, ina 
FUNCTION subprogram the left side of an arithmetic 
statement is a dummy argument (or in COMMON), 
Syntax error in |F statement. 


Invalid expression in |F statement. 


Syntax error or invalid simple argument in CALL state- 
ment. 


Invalid expression in CALL statement. 


Invalid expression to the left of an equal sign in a state~ 
ment function. 






Invalid expression to the right of an equal sign in a state- 
ment function. 







In an IF, GO TO, or DO statement a statement number is 
missing, invalid, incorrectly placed, or is the number 
of a FORMAT statement. 







Syntax error in READ or WRITE statement. 


*IOCS record missing with a READ or WRITE statement 
(mainline program only). 






FORMAT statement number missing or incorrect ina 
READ or WRITE statement. 















Syntax error in input/output list; or an invalid list 
element; or, ina FUNCTION subprogram, the input list 
element is a dummy argument or in COMMON. 


Syntax error in GO TO statement. 


Index of a computed GO TO is missing, invalid, or not 
preceded by a comma, 













*TRANSFER TRACE or *ARITHMETIC TRACE control 
record present, with no *IOCS control record in a main- 
line program. 









Incorrect nesting of DO statements; or the terminal state- 
ment of the associated DO statement isa GO TO, IF, 
RETURN, FORMAT, STOP, PAUSE, or DO statement. 
More than 25 nested DO statements. 


Syntax error in DO statement. 


Initial value in DO statement is zero. 


*Printed at the conclusion of Compilation. Refer to "Compilation Error Messages" under 


FORTRAN Printouts; also see Type 00 Error Messages" in the same section. 
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Table A-8. FORTRAN Error Codes (Part 3) 


Error 
Number Cause of Error 


In a FUNCTION subprogram the index of DO is a 
dummy argument or in COMMON, 









Syntax error in STOP statement. 
Syntax error in PAUSE statement. 
Integer constant in STOP or PAUSE statement is > 9999, 
Last executable statement before END statement is not 


a STOP, GO TO, IF, CALL LINK, CALL EXIT, or 
RETURN statement. 








Statement contains more than 15 different subscript 
expressions. 








Statement too long to be scanned, because of compiler 
expansion of subscript expressions or compiler addition 
of generated temporary storage locations. 


All variables are undefined in an EQUIVALENCE list. 










Variable made equivalent to an element of an array, in 
such a manner as to cause the array to extend beyond 
the origin of the COMMON area. 





Two variables or array elements in COMMON are 
equated; or the relative locations of two variables or 

array elements are assigned more than once (directly or 
indirectly). 


Syntax error in an EQUIVALENCE statement; or an 
illegal variable name in an EQUIVALENCE list. 


Subprogram does not contain a RETURN statement, or 
a mainline program contains a RETURN statement. 







No DEFINE FILE in a mainline program which has disk 
READ, WRITE, or FIND statements. 







Syntax error in DEFINE FILE. 


Duplicate DEFINE FILE, more than 75 DEFINE FILES, 
or DEFINE FILE in subprogram, 






Syntax error in record number of READ, WRITE, or 
FIND statement, 


*The detection of a code 65, 66, or 67 error prevents any subsequent 
detection of any of these three errors. 


|Table A-9, DUP Error Messages (Part 1) 


Code and Printed Message* 


WS TOO LONG 


An attempt is made with *STOREMOD to move an item from Working Storage 
that is longer than the item to be overlaid in the User or Fixed Area. 















D 01 NOT PRIME ENTRY The primary name of the program in Working Storage does not match the 


name on the DUP control record. 







One of the following is detected: non-DSF program, mispositioned header, 


foreign data, or erroneous subtype. 


D 02 INVALID TYPE 







Word six of the DSF header is outside the range of 3-45. The causes are 
similar to D 02, except for subtype. 


D 03 INVALID HEADER LENGTH 







The specified name is already in LET. The name must be deleted before this 
subprogram can be stored. 


D 05 SECONDARY ENTRY POINT NAME ALREADY IN LET IS.... 






D 13 DCTL, FUNCTION An invalid DUP function specified in columns 1-12 of the DUP control record. 









Unacceptable characters are in columns 13 and 14 of the DUP control record. 
If Working Storage is specified in columns 13 and 14, then there is no valid 
program in Working Storage, i.e., the Working Storage Indicator has been 

set to zero, thus inhibiting the movement of programs from Working Storage. 


D 14 DCTL, FROM FLD 








D 15 DCTL, TO FIELD Unacceptable characters are in columns 17 and 18 of the DUP control record. 






If this is a *STORE control record, then the name is already in LET/FLET. 

If this is a *DUMP control record, then the name is not found in LET or FLET. 
If this is a *DUMP control record of Working Storage to the principal |/O, 
then a name is required in columns 21 through 25 of the DUP control record. 
If this is a *DELETE control record, then the name is not found in LET or FLET. 
If this is a *STOREMOD control record, then the name is not found in LET 

or FLET. 


D 16 DCTL, NAME FLD 











Columns 27 through 30 are blank or include alphabetic characters. 


D 17 DCTL, COUNT 
The count field requires a decimal number. 







This function is not allowed during the JOB T mode. 





D 18 DCTL, TMP MODE 
D 41 FIXED AREA PRESENT 





The FORTRAN compiler and/or assembler cannot be eliminated if a Fixed 
area has been previously defined. 







D 42 ASSEMBLER NOT IN SYSTEM The assembler has previously been eliminated from the system. 
D 43 FORTRAN NOT IN SYSTEM 


D 44 INCREASE VALUE {N COUNT FIELD 





The FORTRAN compiler has previously been eliminated from the system. 











The count field was read as a value of zero or one. The first DEFINE 
requires one cylinder for FLET plus one cylinder of Fixed area. 
Thereafter, as little as one cylinder of additional Fixed area can be defined. 










The initiation or expansion of the Fixed area is limited to the Working 
Storage available. 


D 45 EXCEEDS WORK STORAGE 





D 61 DUPCO, EXCEEDS WORK STORAGE 
D 62 EXCEEDS WORK STORAGE 
D 64 EXCEEDS FIXED AREA 
D 71 SEQUENCE OR CKSUM 
D 72 LOAD BLANK CARDS 


This function requires more Working Storage than is available. 






The Working Storage area is not large enough to contain the program specified. 






There is insufficient room in the Fixed area for the program. 









The cards are out of sequence, or there was an erroneous checksum. 





More blank cards are required to complete the dump. The operator performs 
an NPRO and places blank cards between the two cards ejected, removes the 
first card, places the first card in the output stacker, places the remainder 
Me front of the cards still in the reader hopper, and presses the reader START 
utton. 










D 82 NON FILES RECORD The first six characters of records following *STORECI are not *FILES. The 
number of *FILES records is determined by the count field of DUP control 


record STORECI. 







D 83 INVALID CHARACTER The *FILES record following the *STORECI DUP control record has on invalid 


character. 















D 84 EXCEEDS SECTOR ALLOCATION 


Too many Files have been defined. More than two sectors are required to 
contain the information from the *FILES record. 





*Printed upon detection of an erroneous DUP control record. 
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Table A-9, DUP Error Messages (Part 2) 


D 92 INVALID Cl CONVERT 


D 94 LET/FLET OVERFLOW 





The Loader has inhibited the continuation of *STORECI. 
reason has been printed by the Loader. 


The specific 


A ninth sector of LET/FLET is required for the LET/FLET entry. A deletion 
of a program with a LET/FLET entry of similar size is required before this 
program can be stored. 


NOTE: DCTL means the error was detected in the DUP control record. DUPCO means the error was detected in the DUP common section. 


@ Table A-10. DUP Waits and Loops 


Perform an initial load 
of entire Monitor System 


(see System Generation 
Operating Procedures). 







System check. 
LET/FLET, COMMA, 
and DCOM do not 
agree. 


Loops: 


70FFQ0287 






























Wait at 092C Paper tape reader not 


ready 


Ready paper tape reader 
and press PROGRAM 
START. 







Wait at 0005 Do not alter core 
storage. To continue, 


press PROGRAM START. 


Operator pressed 
PROGRAM STOP 


on console. 






*Displayed in Storage Address Register 
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@ Table A-11. FORTRAN J/O Error Codes 


No *IOCS control card appeared with the mainline 
progrom and I/O was attempted in a subroutine. 









1. Logical unit defined incorrectly 
2. No *IOCS control record for specified 1/0 
device. 
Requested record exceeds allocated buffer size. 


Hlegal character encountered in input record. 











Exponent too large or too small in input field. 
More than one E encountered in input field. 
More than one sign encountered in input field. 


More than one decimal point encountered in 
input field. 


1. Read of output-only device. 
2. Write of input-only device. 


Real variable transmitted with an | format specifica- 
tion or integer variable transmitted with an E or F 
format specification. 













F100 File not defined by DEFINE FILE statement. 


File record number too large, equal to zero, 
or negative. 


Disk FIO (SDFIO) has not been initialized. 






F101 





F103 
DISKZ Errors: 
F102 


Read error. 


F104 


Write error. 








F106 
F108 


Read back check error. 





Seek error. 


FIOA Forced read error (seek or find). 





*Displayed in Accumulator 










APPENDIX B. DATA FORMATS 


DISK SYSTEM FORMAT (DSF) Word Contents 
Unless otherwise instructed, DUP automatically 1 Zero 
converts programs in Card System format (CDS) to 2 Checksum if source was cards; 
Disk System format (DSF) when storing programs to otherwise zero 
disk storage. Likewise, programs in DSF are con- 3 Type, subtype, precision 
verted to CDS when dumping from disk storage. 4 Effective length of program, i.e., 
Disk System format is shown in Figure 11; Card the terminal address in the program 
System format is described elsewhere in this 5 Length of COMMON (words) 
appendix, 6 Length of program header record 
minus 9 
7 Zero 
Program Header Format 8 Length of program, including 
program header record in disk 
The contents of the program header record (see blocks 
Figure 11) vary with the type of routine with which 9 Number of files defined 
it is associated. The first 12 words of the program 10-11 Name of entry point 1 (see 
header record for the seven types of programs are Appendix G) 
identical except for word 6, which is 9 less than 12 Address of entry point 1 (absolute 


the number of words in the program header record. 
The format of these 12 words is as follows: 


Data Block 


for type 1, relative to zero 
otherwise) 


SSS SSS 


ea Header ee a Indicator words and 
(12-54 words) Header 


data groups until 
See description below. (1-8 words) 


end-of- program 
3 data header 
Indicator Word Indicator words and 
Data Header (2 words): data groups until 
Word | - Relative core starting data break 
address of where data 


End-of-program data 
header (2 words): 


Word 1 - Relative address of 


is to be loaded Data Break - next available core location 
Word 2 - Number of words following Caused by: ; Word 2 = Word count (0) 
to next data header, plus number 1, A break in sequence of program 


address, e.g., ORG, BSS, DSA 


2, Anew data record 


of words in next data header 


3, The end of the program 


) Figure 11. Disk System Format 
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After the first 12 words, the program header 
record format depends on the type of program. The 
header record for types 1 and 2 (absolute and 
relocatable mainline, respectively) consists of 

the first 12 words. The program types and their 
header record formats are shown below. 


Program Types 


Type 
Code Type of Program 
1 Mainline (absolute) 
2 Mainline (relocatable) 
3 Subroutine, not an ISS, referenced 
by LIBF 
4 Subroutine, not an ISS, referenced 
by CALL 
5 Interrupt service subroutine (ISS) 
referenced by LIBF 
6 Interrupt service subroutine (ISS) 
referenced by CALL 
7 Interrupt level subroutine (ILS) 


Program Formats 


Type 3, 4: 
Words Contents 
13-14 Name of entry point 2 (30 bits, 
right-justified) 
15 Address of entry point 2 (relative 
to zero) 
17-18 Name of entry point 3 (30 bits, 
right-justified) 
19 Address of entry point 3 (relative 
to zero) 
20-54 Three words per entry point as 


above, to a maximum of 14 entry 
points. The header record ends 
at the last defined entry point; 
thus, it is of variable length 
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Type 5, 6: 
Words Contents 
13 51+ ISS number 
14 ISS number 
15 Number of interrupt levels required 
17 Interrupt level number associated 
with primary interrupt* 
18 Interrupt level number associated 
with secondary interrupt 
Type 7: 
Words Contents 
13 Interrupt level number 


*The 1442 Card Read Punch is the only device re- 
quiring more than one interrupt level. 


Program Subtypes 


Subtypes are defined only for type 3 and 4 sub- 
routines. When undefined, the field contains a zero. 

For type 3 subroutines, subtypes are defined as 
follows: 


Subtype Description 


0 In-core subroutines. Of the IBM 
subroutine library, this group in- 
cludes the trace, fix, float, dump, 
subscript, normalize, flipper, 
initialization, and certain conversion 
subroutines 

1 Disk FORTRAN I/O subroutines, 
SDFIO and SDFND 

2 Arithmetic subroutines, e.g., FADD 

3 FORTRAN Format subroutine SFIO, 
and FORTRAN I/O subroutines, e. g., 
CARDZ 


For type 4 subroutines, subtypes are defined as 
follows: 


Subtype Description 
0 All type 4 subroutines which are not 
subtype 8, e.g., DMTDO 
8 Functional subroutines, e.g., SIN 


Appendix E lists all IBM-supplied subroutines and 
their subtypes. 


DISK CORE IMAGE FORMAT (DCI) 


A program in Disk Core Image format (DCI) is one 
that the Loader has converted from Disk System 
format (DSF). A DCI program is an entire core 
load, i.e., it consists of a mainline program, all 
subroutines referenced in the core load (except the 
Disk I/O routine), the object-time transfer vector, 
and the core image header record. The mainline 
program and subroutines appear as they will at 
execution time; however, the Loader must prepare 
the program for execution before it is read into 
core storage. 

Although programs are loaded faster from DCI 
than from DSF, DCI programs usually occupy more 
disk storage because they constitute an entire core 
load. In addition, unlike DSF programs, the areas 
reserved by BSS and BES statements are a part of 
DCI programs unless the first statement in the 
mainline is a BSS or BES. 

A typical DCI program is stored on disk in the 
User/Fixed area as follows: 


Core Image 
Header 
Record 


Mainline Subroutines Object-time 


Transfer Vector 


Program (if any) 





The object-time transfer vector is described in 
the section titled The Loader. Information contained 
in the 60-word core image header record is used to 
load the DCI program into core before execution. 
The format is as follows: 


Words Description 


1-6 Interrupt transfer vector (words 
8-13 at execution time) 
7 Setting for index register 3 at 
execution time 
8 Core address (at execution time) of 
the subroutine ILS02 
9 Number of files defined 
10 Length of COMMON (in words) 
i Code for requested version of the 


Disk I/O subroutine (-1 = DISKZ, 

0 = DISKO, 1 = DISK1, 2 = DISKN) 
12 Core address (at execution time) of 

the entry in the LIBF TV which is 

associated with the Disk I/O sub- 


routine 

13 Length of the object-time transfer 
vector (in words) 

14 Core address (at execution time) of 


the first word of the mainline pro- 
gram, exclusive of initial BSS and/or 
BES statements 
15 Total length of mainline program, 
subroutines, and object-time transfer 
vector (in words) 
16-60 Reserved 


DISK DATA FORMAT (DDF) 


Disk Data format (DDF) describes information 
placed in the User area, Fixed area, or Working 
Storage area as a result of the DUP control record 
STOREDATA, Disk Data format consists of 320 
binary words per sector; there are no headers, 
trailers, or indicator words. 


CARD SYSTEM FORMAT (CDS) 

Card System format is in terms of words on binary 
cards (see Card Data Format). This is used for 
relocatable programs. The card ID and sequence 
numbers (columns 73-80) are in IBM card code. 


Mainline Header Card 


A mainline header card specifies the size of the 
common area and the size of the work area. It is 
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the first card of the mainline program. The 
format is as follows: 


Word Contents 
1 Reserved 
2 Checksum* 
3 Type code (first 8 bits): 


0000 0001 - absolute 
0000 0010 - relocatable 
Precision code (last 8 bits): 
0000 0001 - standard 
0000 0010 - extended 
0000 0000 - undefined 


4 Reserved 

5 Length of COMMON storage area 
(FORTRAN mainline program 
only) 

6 0000 0000 0000 0011 

7 Work area required (FORTRAN 
only) 

8-54 Reserved 


*The checksum is the two's complement of the 
logical sum of the record count (position of the 
record within the deck) and the data word(s). 
The logical sum is obtained by summing the 
data word(s) and the record count arithmetically 


with the addition of a one each time a carry occurs 


out of the high-order position of the accumulator. 


Data Cards 


Data cards contain the instructions and data that 
constitute the assembled program. The format is 
as follows: 


Word Contents 


1 Location (The relative load address 
of the first data word of the card or 
record. Succeeding words go into 
higher numbered core locations. 
The relocation factor must be added 
to this address to obtain the actual 
load address. For an absolute 
program the relocation factor is 
zero. ) 

2 Checksum 

3 Type code (first 8 bits): 

0000 1010 
Data word count (last 8 bits) 
4~9 Relocation indicators (2 bits per 
data word): 
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00 - nonrelocatable or absolute 
01 - relocatable 

10 - LIBF (one word call) 

11 - CALL (two word call) 


10 Data word 1 
11-54 Data words 2 through 45 
EOP Card 


An EOP (end of program) card is the last card 
of each program and subroutine. The format is 
as follows: 


Word Contents 
1 Starting location of next routine 


(this number is always even and 
is assigned by the assembler) 


2 Checksum 
3 Type code (first 8 bits): 
0000 1111 
Last 8 bits: 
0000 0000 
4 XEQ address, if mainline program 
5-54 Reserved . 


Subroutine Header Card 


A maximum of 14 entry points can be defined for 
each subroutine. The format of the subroutine 
header card is as follows: 


Word Contents 
1 Reserved 
2 Checksum 
3 Type code (first 8 bits); 


0000 0011 - to be called by a 
one-word call only (LIBF) 

0000 0100 - to be called by a 
two-word call only (CALL) 

Precision code (last 8 bits): 

0000 0000 - undefined 

0000 0001 - standard 

0000 0010 - extended 


4-5 Reserved 
6 Number of entry points times three 
7-9 Reserved 
10-11 Name of entry point 1 
12 Relative address of entry point 1 
13-51 Names and relative addresses of 
entry points 2 through 14 

52-54 Reserved 


ISS Header Card 


An ISS (interrupt service subroutine) header card 
for each interrupt service subroutine identifies 
the entry point defined by an ISS statement. Only 
one entry point can be defined for each 


subroutine. 
is as follows: 


Word 
1 


2 
3 


14 


15 
16 


17-29 


30 
31-54 


The format of the ISS header card 


Contents 


Reserved 
Checksum 
Type code (first 8 bits): 
0000 0101 - to be called by a 
one-word call only (LIBF) 
0000 0110 - to be called by a 
two-word call only (CALL) 
Precision code (last 8 bits): 


0000 0000 - undefined 
0000 0001 - standard 


0000 0010 - extended 

Reserved 

Six plus number of interrupt levels 
required 

Reserved 

Subroutine name 

Relative entry address 

Address of ISTV (interrupt service 
transfer vector) is equal to 5119 
plus the ISS number. * 

ISS number (displacement in ISTV) 
= 1-8 10 . 

Number of interrupt levels required 

ID number for the primary interrupt 
level required (0-5) 

ID numbers for remaining interrupt 
levels required (9-5) 

Edit word (contains a 1) 

Reserved 


*The ISTV table is initialized by the Loader. This 
table starts at location 0034. Each TV entry in 
this table contains the starting addresses for the 
corresponding ISS routine (maximum of 8 TV 


entries). 


ILS Header Card 


An ILS (interrupt level subroutine) header card 
identifies the ILS routine. The format of the 
ILS header card is as follows: 


Word Contents 
1 Reserved 
2 Checksum 
3 Type code (first 8 bits): 
0000 0111 
Reserved (last 8 bits) 
4-5 Reserved 
6 0000 0000 0000 0100: 
7-9 Reserved 
10-12 Reserved 
13 Interrupt level number 
14-54 Reserved 


CARD DATA FORMAT (CDD) 


Card Data format (CDD) is shown in Figure 12. 
Fifty four words can be placed on a card (1-1/3 
columns per word, 4 columns for 3 words). The 
word numbers appear in every third column across 
the top of the card. 


PRINT DATA FORMAT (PRD) 


Print Data format is shown in Figure 13. There are 
16 four-character words per line, with a space 
after each word, and an additional space after each 
fourth word. 


PAPER TAPE SYSTEM (PTS) AND PAPER TAPE 
DATA (PTD) FORMATS 


Paper Tape System format (PTS) is analogous to 
Card System format (CDS), and Paper Tape Data 
format (PTD) is analogous to Card Data format 
(CDD). 

In Paper Tape format, two frames contain one 
binary word, which is equivalent to 16 bits per 
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binary word in Card Data format. In addition, a 
one-frame word count precedes a paper tape record. 
A paper tape data record contains a maximum of 54 
binary words, i.e., 108 frames plus a word-count 
frame. 

Information that would appear in columns 73-80 
of a card must not appear on paper tape. 


Word 1 Word 54 


600000000 


cvhete 70 MBN Ne 
Bi7i3 FiBi7/4.1111111 


4444444 
BI55555555 


(8M 1130-1800 BINARY CARD 


OCK 6666666 
1077777777 
2E88s8sssss 


I7[3 Flalti3FI99999999 
OTe iT) 72573 74 75 78 77 787990 





tou J TSS7TO 


Figure 12, Card Data Format 


4 7 4 7 4 4 
| i] 
o a 
characters | » characters | ™ | characters characters 





Word 1 Word 2 Word 3 Word 4 Words 5 - 16 


Space after 
each 4th word 


Figure 13, Print Data Format 
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APPENDIX C. DISK STORAGE UNIT CONVERSION FACTORS 





Bits 320 5,112 8,192,000 
Data Words 20 320* 512,000 
Disk Block 16 25 , 600 
Sectors 1,600 
Tracks 400 
Cylinders 200 


*These follow the first actual word of each sector, which is used for the address. 
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APPENDIX D. SUPERVISOR AND DUP INPUT/OUTPUT CHARACTER CODES 


PTTC/8 
Hex 
(U = Upper Case) 
Keyboard Graphic 1132 Graphic IBM Card Code (L = Lower Case) 


PTTC/8 
Hex 
(U = Upper Case) 
Keyboard Graphic 1132 Graphic IBM Card Code (L = Lower Case) 


Numeric Characters Special Characters 


OMAN A OHhON —- OO 
OMONAOUERWNH— OC 
OMAN A NHL WN ~~ OO 


Alphabetic Characters 


Sms Ni #49 G0 + me 
i] 
Kr 


< 
( 
+ 
& 
$ 
) 
i 
# 
® 





to 
io) 


1 
OMN AOA KWH 


NOTES: 1. DUP recognizes only those special characters flagged 
with an asterisk, 
2. Any special characters not recognized by SUP and 
DUP will be corrected to an ampersand (&). 


N<*XS<CAYFOVPOZS-ACATOTMMOIOASDYS 


A 
B 
C 
D 
E 
F 
G 
H 
| 
J 
K 
L 
M 
N 
oO 
P 
Q 
R 
S 
T 
U 
Vv 
Ww 
X 
Y 
Z 


PSP? PHP = 
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1130 SUBROUTINE LIBRARY LISTING 


Utility Calls 

Selective Dump on Console Printer 
Selective Dump on 1132 Printer 
Dump 80 Routine 

Common FORTRAN Calls 

Test Data Entry Switches 

Divide Check Test 

Functional Error Test 

Overflow Test 

Sense Light Control and Test 

| FORTRAN Trace Stop 

FORTRAN Trace Start 

Integer Transfer of Sign 

Extended Arith/Funct Calls 

Extended Precision Hyperbolic Tangent 
Extended Precision A**B Function 
Extended Precision Natural Logarithm 


Extended Precision Exponential 





Extended Precision Square Root 

' Extended Precision Sine-Cosine 

~ Extended Precision Arctangent 

Extended Precision Absolute Value Function 
FORTRAN Sign Transfer Calls 

Extended Precision Transfer of Sign 
Standard Precision Transfer of Sign 


Standard Arith/Funct Calls 





Standard Précision Hyperbolic Tangent 
Standard Precision A**B Function 


Standard Precision Natural Logarithm 


Standard Precision Exponential 
Standard Precision Square Root 


Standard Precision Sine-Cosine 


DMTDO, DMTXO 
DMPD1, DMPX1 


DMP80 


DATSW 
DVCHK 
FCTST 
OVERF 
SLITE, SLITT 
TSTOP 
TSTRT 


ISIGN 


ETANH, ETNH 
EAXB, EAXBX 

ELN, EALOG 

EEXP, EXPN 

ESQR, ESQRT 

ESIN, ESINE, ECOS, ECOSN 
EATN, EATAN 


EABS, EAVL 


FIANH, FTNH 
FAXB, FAXBX 


FLN, FALOG 


FEXP, FXPN 
FSQR, FSQRT 


FSIN, FSINE, FCOS, FCOSN 





‘See Disk System Format, Program Subtypes, in Appendix B. 


EEXP, ELD/ESTO, EADD, EDIV, EGETP 
EEXP, ELN, EMPY 

XMD, EADD, EMPY, EDIV, NORM, EGETP 
XMD, FARC, EGETP 

ELD/ESTO, EADD, EMPY, EDIV, EGETP 
EADD, EMPY, NORM, XMD, EGETP 
EADD, EMPY, EDIV, XMD, EGETP, NORM 


EGETP 


ESUB, ELD 


FSUB, FLD 


FEXP, FLD/FSTO, FADD, FDIV, FGETP 
FEXP, FLN, FMPY 


FSTO, XMDS, FADD, FMPY, FDIV, NORM, 
FGETP 


XMDS, FARC, FGETP 


FLD/FSTO, FADD, FMPY, FDIV, FGETP 


FADD, FMPY, NORM, XMDS, FSTO, FGETP 
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Standard Precision Arctangent FATN, FATAN FADD, FMPY, FDIV, XMDS, FSTO, FGETP 
Standard Precision Absolute Value Function FABS, FAVL FGETP 

Common Arith/Funct Calls 

Fixed Point (Fractional) Square Root XSQR 

Integer Absolute Function IABS 


Floating Binary/EBC Decimal Conversions FBTD (BIN. TO DEC.) 
FDTB (DEC. TO BIN.) 


Overlay Routines for LOCAL Subprograms 

Long Form DISKZ or DISKO 

Short Form DISK1 or DISKN 

FORTRAN Trace Routines 

Extended Floating Variable Trace SEAR, SEARX ESTO, TTEST, SWRT, SIOF, SCOMP 
Fixed Variable Trace SIAR, SIARX TTEST, SWRT, SIOI, SCOMP 
Standard Floating IF Trace SFIF FSTO, TTEST, SWRT, SIOF, SCOMP 
Extended Floating IF Trace SEIF FSTO, TTEST, SWRT, SIOF, SCOMP 
Fixed IF Trace SUF TTEST, SWRT, SIOI, SCOMP 
Standard Floating Variable Trace SFAR, SFARX FSTO, TTEST, SWRT, SIOF, SCOMP 


GOTO Trace SGOTO TTEST, SWRT, SIOI, SCOMP 


Non-Disk FORTRAN Format I/O 
le 


FORTRAN Format Routine SFIO, SIOL, SIOAI, SIOF, SIOAF, FLOAT, ELD/ESTO or FLD/FSTO, IFIX 
SIOFX, SCOMP, SWRT, SRED, SIOIX 


FORTRAN Find Routine SDFND DISKZ 
Disk FORTRAN I/O SDFIO, SDRED, SDWRT, SDCOM, DISKZ 
SDAF, SDF, SDI, SDIX, SDFX, 
SDA! 
FORTRAN Common LIBFs 
FORTRAN Pause PAUSE 
FORTRAN Stop STOP 


FORTRAN Subscript Displacement SUBSC 
Calculation 


FORTRAN Subroutine Initialization SUBIN 
FORTRAN Trace Test and Set TTEST, TSET 
FORTRAN 1/O and Conversion Routines 

FORTRAN Card Routine 

Disk 1/O Routine 


FORTRAN Paper Tape Routine 
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FORTRAN 1132 Printer Routine 

FORTRAN Keyboard-Typewriter Routine 
FORTRAN Typewriter Routine 

FORTRAN Hollerith to EBCDIC Conversion 
FORTRAN Get Address Routine 

FORTRAN EBCDIC Table 

FORTRAN Hollerith Table 

Extended Arith/Funct LIBFs 

Extended Precision Get Parameter Subroutine 
Extended Precision A**] Function 
Extended Precision Divide Reverse 
Extended Precision Float Divide 

Extended Precision Float Multiply 
Extended Precision Subtract Reverse 
Extended Add-Subtract 

Extended Load-Store 

Standard Arith/Funct LIBFs 

Standard Precision Get Parameter Subroutines 
Standard Precision A**I Function 

Standard Precision Divide Reverse 
Standard Precision Float Divide 

Standard Precision Float Multiply 
Standard Precision Subtract Reverse 
Standard Add-Subtract 

Standard Load-Store 


Standard Precision Fractional Multiply 


Common Arith/Funct LIBFs 


Fixed Point (Fractional) Double Divide 
Fixed Point (Fractional) Double Multiply 
Sign Reversal Function 

Integer to Floating Point Function 
Floating Point to Integer Function 


I**J Integer Function 


EGETP 
EAXI, EAXIX 
EDVR, EDVRX 
EDIV, EDIVX 
EMPY, EMPYX 


ESBR, ESBRX 


EADD, ESUB, EADDX, ESUBX 


ELD, ELDX, ESTO, ESTOX 


FGETP 

FAXI, FAXIX 

FDVR, FDVRX 
FDIV, FDIVX 

FMPY, FMPYX 


FSBR, FSBRX 


FADD, FSUB, FADDX, FSUBX 


FLD, FLDX, FSTO, FSTOX 


XMDS 


XDD 
XMD 
SNR 
FLOAT 
1 FIX 


FIX, FIXIX 


None 

GETAD, EBCTB, HOLEZ 
GETAD, EBCTB 
GETAD, EBCTB, HOLTB 
None 

None 


None 


ELD 
ELD/ESTO, EMPY, EDVR 
ELD/ESTO, EDIV 

XDD, FARC 

XMD, FARC 

EADD 

FARC, NORM 


None 


FLD 

FLD/FSTO, FMPY, FDVR 
FLD/FSTO, FDIV 

FARC 

XMDS, FARC 

FADD 

NORM, FARC 

None 


None 
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Normalize Subroutine 


Floating Accumulator Range Check 
Subroutine 


Interrupt Service Subroutines 


Card Input/Output (No Error Parameter) 1LSO0, ILSO4 
Card Input/Output (Error Parameter) ILSOO, ILSO4 
One Sector Disk Input/Output ILSO2 
Multiple Sector Disk Input/Output ILSO2 
High-Speed Multiple Sector Disk Input/Output ILSO2 
Paper-Tape Input/Output ILSO4 
Simultaneous Paper Tape Input/Output [LS04 

Plotter Output Routine ILSO3 

1132 Printer Output Routine ILSO1 
Keyboard/Console Printer Input/Output HOLL, PRTY, ILSO4 
Console Printer Output Routine {LS04 
Conversion Routines 


Binary Word to 6 Decimal Characters (Card None 
Code) 


Binary Word to 4 Hexadecimal Characters None 
(Card Code) 


6 Decimal Characters (Card Code) to None 
Binary Word 


EBCDIC to Console Printer Output Code EBPA, PRTY 
Card Code to EBCDIC-EBCDIC to Card Code EBPA, HOLL 
Card Code to Console Printer Output Code HOLL, PRTY 


4 Hexadecimal Characters (Card Code) to None 
Binary Word 


PTTC/8 to EBCDIC-EBCDIC to PTTC/8 EBPA 
PTTC/8 to Card Code-Card Code to PTTC/8 EBPA, HOLL 
PTTC/8 to Console Printer Output Code EBPA, PRTY 
Card Code to EBCDIC-EBCDIC to Card Code None 
EBCDIC and PTTC/8 Table None 

Card Code Table None 
Console Printer Output Code Table None 
interrupt Level Subroutines 


Interrupt Level Zero Routine 
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Subtype Other Subroutines Required 


Interrupt Level One Routine 


Interrupt Level Two Routine 


Interrupt Level Three Routine 


Interrupt Level Four Routine 
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APPENDIX F. 
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The Disk Communications Area (DCOM), sector 8 


IN-CORE COMMUNICATIONS AREA (COMMA) 


on the disk, is read into core starting in address 
0028 (decimal 40). The In-Core Communications 


Area (COMMA), therefore, is an image of DCOM, 


but offset by 40 words. The first 10 words 
(0028-0031) include the IOCS error and interrupt 


error traps. 


The IOCS error trap entry word 


(0028) is initialized to contain the version and 
modification level of the Disk Monitor System, 
and will be overlaid by a return address if an 

IOCS error occurs. 


The core locations and contents of COMMA 
are shown on the following three pages. 





Dec. 


4, 53 
5. 54-69 
6. 70 
7. 7) 
8. 72 
9. 73 
10. 74 
Wt. 7 
12, 76 
13, 77 
14. 78 
15. 79 
16. 80 
17. 81 
18. 82 
19. 83 
20. 84 
21. 85 
22. 86 
23. 87 
24, 88 
25. 89 
26. 90-91 
27, 92 


Hex. 


36-45 
46 


47 


48 


49 
4A 
4B 
AC 
4D 
4E 


4F 


50 
51 


52 


53 


54 
55 

56 

57 

58 

59 
5A-5B 


5C 






IOCS counter, incremented by 1 upon entry to every [OCS subroutine (provided an XIO is to be executed), decremented by 
1 after an operation complete interrupt. 






Reserved. 






Core address (in user program) of Interrupt Level 2 subroutine (ILSO2). 







Number of files defined. 


CALL LINK/CALL EXIT linkage to Skeleton Supervisor. 






Length of COMMON (in words). 







Type of Disk 1/O required, e.g., 


-1 = DISKZ (special disk routine) 
0 = DISKO 
1 = DISKI 
2 = DISKN 









Reserved, 






System Addresses 


Reserved, 







Sector address of FORTRAN, zero if FORTRAN deleted. 






Sector address of Assembly Program, zero if deleted. 


32019 (length of 1 sector). 







Sector address of first (numerically lowest) sector of Core Image Buffer (CIB). Word 1 of FLET header printed by DUMPLET. 


OOOA (address in lower core, i.e., in the interrupt transfer vector, to which all disk interrupts branch indirectly). 










Sector address of first (numerically lowest) sector of Fixed Lecation Equivalence Table (FLET). Word 2 of FLET header 
printed by DUMPLET. 






Sector address of first (numerically lowest) sector of Location Equivalence Table (LET). 







Sector address of first (numerically lowest) sector of User area, 





File protect sector address, otherwise used as sector address of Working Storage (base). Word 1 of LET header printed by 
DUMPLET. See Note 1. 





Same as above (adjusted). Word 2 of LET header printed by DUMPLET. See Note 1. 






LET/FLET Entries ° 






Total number of words used on disk by FLET. Word 3 of FLET header printed by DUMPLET. 








Reserved. 





Total number of words used on disk by LET (base). Word 5 of LET header printed by DUMPLET. See Note 1. 






Same as above (adjusted). Word 6 of LET header printed by DUMPLET. See Note 1, 








Next available disk block address in User area (base). Word 3 of LET header printed by DUMPLET. See Note 1. 





Same as above (adjusted). Word 4 of LET header printed by DUMPLET. See Note 1. 





Name of program (LET/FLET entry words 1 and 2), 





Disk blocks used by program (LET entry word 3). Second word printed out at end of DUP function. 
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LET/FLET Entries (Continued) 


Core execution address of program (relative for relocatable programs, absolute otherwise) for word 12 of the program header 
record, Not used as word 4 of LET/FLET entry. 


Core loading address of program, also used as first word on mainline program, or first word of define file table (LET/FLET 
entry word 5 for core.image program). 


Word count/disk block count of program, i.e., word count for core image programs, disk block count for data files, and 
address of next available core location following the program in Disk System format that is in Working Storage on the disk 
(LET/FLET entry word 6 for core image program data file). 

Switches 

Principal print device (odd = console printer/keyboard, even = 1132). See Note 2. 

Principal 1/O device (odd = 1442, even = 1134/1055). See Note 2. 

Temporary mode if non-zero, normal if zero, 

Non-XEQ (disable XEQ until next // JOB record if non-zero, enable XEQ if zero). See Note 3. 

Non-DUP (disable DUP functions until next // JOB record is detected if non-zero, enable DUP functions if zero). 


System Overlays and/or LOCALs are used in program if non-zero. 


Disable Supervisor reading of monitor control record if non-zero, enable if zero (positive indicates monitor control record 
has been read under invalid conditions, negative under valid conditions). 


Loader return to Supervisor if zero, to address in switch itself if non-zero (after restoring DUP). 
Core map requested if non-zero, no map if zero. 
WS Indicator Word (disk block count of program in Working Storage). 
Parameters for Disk 1OCS 
. 106 Disk Arm Position 
107 -108 Reserved 
. 109 Disk File Protect Address 
110-111 Reserved 
. 192-114 Table of Defective Cylinders 
115-120 Reserved 
Miscellaneous 
44, 121 Disk block address of program. First word printed out at end of DUP function. 
45, 122-125 Reserved 


46. 126 Size of core (1000]¢» 200016) 


47, 127 Absolute execution address of core load (for word 4 of LET/FLET entry). 


48. 128-137 Reserved 
49, 138 Contents of index register 3 (points to middle of a 255-word transfer vector). 


50. 139-144 System Work Area 
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NOTE 1: When requested following a //JOB T control record, DUP will 
store information to disk and update LET ona temporary basis (only the 
adjusted value is altered). When the next //JOB or //JOBT control 
record is encountered, the adjusted value will be replaced by the base 


NOTE 2: The interrupt levels associated with the |/O devices will be 
specified in COMMA, Since four bits are sufficient to specify any ILS 
aumber, three 1/O levels may be included in each of the two words in 
COMMA which identify the principal I/O device and the principal! print 


Interrupt level of 
principal print device 


Interrupt level of 
principal |/O device 





Example 


Word 96: 1132 + Console Printer 140016 
Console Printer 400116 


NOTE 3: Set to something other than zero or one by any part of the sys- 
tem that finds a non-XEQ type error, reset to one by Supervisor after 


Interrupt level of 
secondary print device 


Interrupt level of 
column interrupt for 

\ 1442 if principal 1/0 
device is 1134/1055; 
interrupt level of end- 
of-card interrupt for 
1442 otherwise. 


value. Thus, all information which has been stored in the User area since 
the first // JOB T record will be deleted. The //JOBT function requires 
that both base and adjusted values be available in COMMA, The base 
and adjusted values will be equal except during //JOB T operation. 


device (items 31 and 32, respectively). The rightmost four bits in each of 
these words identify the devices themselves. The layouts of these two 
words are as follows: 


Principal print device 
indicator (0=1132, 
1=console printer/ 
keyboard) 


Reserved for future use 


Principal {/O device 
indicator (0=1134/1055, 
1=1442, 2=console 
printer/keyboard) 


Interrupt level of 
end-of-card interrupt 
for 1442 if principal 
1/0 device is 1134/ 
1055; interrupt level 
of 1134/1055 other- 


wise, 


Supervisor only 


Word 97: 1442 040116 
1442 + 1134/1055 044144 
1134/1055 4000} 4 


printing out a message, reset to zero by Supervisor Upon sensing a //JOB 
record, 


Appendix F, In-Core Communications Area 73 


APPENDIX G, LAYOUT OF LET/FLET ENTRIES 


THREE WORD ENTRIES (DISK SYSTEM FORMAT) 


SIX-WORD ENTRIES (DISK CORE IMAGE FORMAT) 


74 


Words 


1-2 


Words 


1-2 


De scription 


Name of the program, consisting 
of five 6-bit characters, right- 
justified in the 32 bits of words 

1 and 2. Names of less than five 
characters are padded with 
terminal blanks. A 6-bit 


character is formed by truncating 


the leftmost two bits of the 
EBCDIC representation of that 


character. Bits 0 and 1 are zeros. 


Disk block count of the program. 


De scription 


Same as for three-word entries, 
except that for core-image pro- 
grams, bit 0 is one and bit 1 is 
zero; and for data files, both bits 
0 and 1 are ones. 

Disk block count of the program, 
including padding. Padding is the 


Words 


Description 


number of disk blocks between the 
end of the last program or file 
stored and the beginning of this 
program, which is a sector 
boundary. 

4 Execution address of the program, 
i.e., the core location to which 
control is passed for execution 
of the program (zero for data files). 

3) Loading address of the program, 
i.e., the core location at which 
the core image program is to 1 
be loaded. 

6 Word count of the program, i.e., 
the number of words to be read 
from the disk when reading the 
information from disk to core 
storage. 


NOTE 1: Eight sectors each are allocated for 
LET and FLET. 


NOTE 2: The order of the entries in LET is the 
order in which the named items are stored in 
the User area. 


APPENDIX H. 


IBMO00, the 1130 Disk Monitor System maintenance 
program, is the means by which a user updates his 
disk as modifications are released. The program 
automatically updates the monitor programs 
(Supervisor, Disk Utility, FORTRAN, and 
Assembler), provides a method of changing the 
IBM subroutine library, and also updates the 
version and modification level in the first word 
in DCOM. The leftmost 4 bits represent the 
version, and the rightmost 12 bits represent the 
modification level. 

A card deck or paper tape containing correc- 
tions to maintain the monitor will be supplied 
by IBM. This includes all necessary control 
records. Every modification must be run to 
update the version and modification level even 
though the program affected is not on the disk. 

IBMO00 is stored on the disk as part of the 
IBM subroutine library. It is called from disk 
by the following control record: 


cc 


1234567891011 1213 1415 1617 18 19 


// XEQ 1BM0 0 0 


A zero must appear in position 19 of the XEQ 
record to specify DISKO. 

Input to the program can be stacked with 
other jobs. However, when stacking modifica- 
tions to the Monitor System, each patch that 
increases the modification level must begin with 
the above control record (see Figure 14). 

Input to the program can be cards or paper 
tape. IBM00 determines the. input device 
automatically by interrogating COMMA for the 
principal 1/O device. 


SYSTEM PROGRAM MAINTENANCE 


Typical input for a system program update is as 
follows: 


IBM00 (1130 DISK MONITOR SYSTEM MAINTENANCE 
PROGRAM) 


cc 
1234567891011 1213 1415 16 17 18 19 
// XEQ 1BM 0 0 


Patch header record 
Patch data record 


0 


One to eight data records. 
Patch data record 


Patch header record 
Patch data record 


One to eight data records 


Patch data record 
Patch header record 


Next monitor control record 












Update data records 
(new version of subroutine XXXXX) 


Update function control records 


Subroutine library update header 


System maintenance program 
call 







// XEQ 1BMO0 


Next monitor control record 


Update data records 


— 


Figure 14, Control Records and Data Organization (in Card Form) 
for Monitor Program and Subroutine Library Maintenance 


System program header record 





System maintenance program 
call 
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Patch Header Record 


Each sector to be changed requires a patch 
header record. Thus, if a patch crosses a 
sector, two header records are required. If 
FORTRAN or the assembler is being modified, 
a check is made to determine if that system 
program has been voided from the disk. If so, 
the modification is not made. 

The format of a patch header record (in 
terms of card input) is as follows: 


Columns Contents 
1-3 Program ID (FOR, ASM, DUP, 
SUP) 
10-11 Monitor System Version (01-15). 


The patch is not made if the 
version number does not agree 
with the version number in DCOM. 
15-17 Modification Level (000-999). 
This must be the same in every 
header within a patch deck. The 
patch is made only if the modifica- 
tion level number is equal to or 
one greater than the modification 
level in DCOM. Changes to the 
modification level must be in 
ascending order, increasing by 
one level at a time. 

The user may rerun the 
modifications to his system by 
starting with modification level 
001. If this is lower than the 
modification level in DCOM, a 
message is typed, followed by a 
wait. This notifies the user that 
he is processing his modifications 
from the beginning; upon continuing, 
the patch is made and the 
modification level is changed to 
001. 

The modification level in DCOM 
is updated after the last record of 
the entire change is processed. 

21-23 Sector Address (absolute, 
decimal, sector to be modified, 
except for the assembler, in 
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Columns Contents 

which case it is relative to the 

sector address of the first 

sector of the assembler). 

27-29 Relative word number of first 
patch word (000-319). 

33-35 Word count of patch (001-320). 

40-41 Total records in modification 
(02-99). This should appear only 
on the first patch header record. 
The count is the total record 
count of the modification, 
including data records and patch 
header records. 

78-80 Sequence number (always 001). 


Data Record 


A data record (in terms of card input) is a binary 
data card (see Appendix B, Card System Format). 
One to eight data records can follow each patch 
header record, depending on the size of the 
patch. These must be numbered from 002 to 

009, and must contain the proper checksum for 
this sequence. 


The data record format is as follows: 


Words Contents 
1 Location 
2 Checksum 
3 Type code (first 8 bits): 
00001010; 
Word count (last 8 bits) 
4-9 Relocation indicators 
10-54 Data words 1 through 45 
55-60 ID and sequence number 


IBM SUBROUTINE LIBRARY MAINTENANCE 


Changes to the subroutine library require reloading 
the new subroutine. IBM00 updates the version 
and modification level word; the actual reload is 
performed by a DUP DELETE function, followed 
by a DUP STORE function. 


Typical input for a subroutine update is as 
follows: 


cc 


1234567891011 1213 1415 1617 18 19 20 21 
// XEQ 1BM 0 0 0 


(Subroutine header record) 


// DUP 
*DELETE nae 
*STORE Cc D UA name 


or 
PT 


(New version of the subroutine) 


Subroutine Header Record 


The subroutine header record must go through 
{BMO00 even if the subroutine being modified is 
not on the user's disk. This is necessary to 
update the version and modification level word 
in DCOM so that the next sequential modification 
level can be made, 

The format of a subroutine header record 
(in terms of card input) is as follows: 


Columns Contents 
1-3 SUB (to signify a subroutine update) 
10-11 Monitor System Version (01-15) 
15-17 Modification Level (000-999) 


OPERATING PROCEDURES 


The card deck or paper tape supplied by IBM is to 
be run as a monitor job. When the control record 
//XEQ IBM00 is read, the version and modification 
level of the monitor is typed (see Figure 15, lines 
1, 2, and 3). When the correct input is read, 

lines 1 through 6 of Figure 15 are typed. 


ERROR MESSAGES 


IBM00 error messages are listed in Table H-1. 


Table H-1. IBMOO Monitor System Maintenance Error Messages 


UOT INVALID HEADER Program cannot recognize header 


record, 


Data record checksum error. A record 
might be out of sequence or there 
might be an invalid data record, 


U02 CHECKSUM ERROR 


Monitor control record was encoun~ 
tered before the updating process 
was completed. 


U03 MCR BEFORE EOJ 


U04 VERSION ERROR 


The version on disk does not agree 
with the version in header record, 


The modification level in the header 
record is not equal fo or one greater 
than the modification level on disk, 


U05 MOD, LEVEL ERROR 





NOTE 1: All of the above errors require a retry of the execution after 
corrective action has been taken. Following an error typeout, the 
program waits; pressing PROGRAM START causes an exit to the 
Supervisor, 


NOTE 2: A user can start at modification No. 1 and add all modifi- 
cations to date. A message is typed when this condition is encountered, 
followed by a wait. PROGRAM START must be pushed to continue. 

The following message will be typed: ‘THE MONITOR SYSTEM IS 
BEING UPDATED WITH MOD. LEVEL NO. 1. PUSH PROGRAM 
START TO CONTINUE,’ 


(Line 1) 1BMOO MONITOR SYSTEM MAINTENANCE 
(Line 2) VERSION NO. {S XX 
(Line 3) PRESENT MODIFICATION LEVEL IS) XXX 


(Line 4) | MONITOR SYSTEM UPDATE COMPLETED 
(Line 5) VERSION NO; IS XX 
(Line 6) NEW MODIFICATION LEVEL IS XXX 





Figure 15. Typeouts for 1130 Monitor System Maintenance Program 
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APPENDIX I. UTILITY ROUTINES 


In addition to the IBM subroutine library, the follow- 
ing utility programs, each complete with subroutines 
and loaders, are supplied to the user to enable him 
to perform operations external to the 1130 disk moni- 
tor system. The individual program writeups indicate 
whether the program is available for the card system 
only, the paper tape system only, or both. Where the 
program is applicable to both systems, operating 
procedures are included for card and paper tape. 

The paper tape utility routine is loaded as part of 
the paper tape disk monitor system. 


e Disk Pack Initialization Routine (DPIR). This rou- 
tine is described under System Generation Opera- 


ting Procedures -- Card System. The DPIR card 
and paper tape loading procedures are listed under 
the appropriate system generation procedure. 

e Console Printer Core Dump 

e 1132 Printer Core Dump 

e Console Printer Disk Dump 

e 1132 Printer Disk Dump 


e Paper Tape Reproducing Routine 


e Paper Tape Utility Routine (PTUTL) 


CONSOLE PRINTER CORE DUMP (CARD SYSTEM 
ONLY) 


This routine aids the user in the debugging of pro- 
grams. The programmer can dump portions of core 
by loading a single-card console routine which occu- 
pies the first 80 words of core. The output device is 
the console printer. 


Format 


This routine dumps core in hexadecimal form, start- 
ing with the word specified in the console entry 
switches. Dumping continues until PROGRAM STOP 
is pressed. 


Words are dumped in four-digit hexadecimal form, 
with a space between each word. The first word 
typed is the starting address of the dump. The num- 
ber of characters per line depends upon the margin 
settings of the console printer. 


Operating Procedures 


1. With the console Mode switch set to RUN, press 
IMM STOP and RESET on the console. 

2. Set the console entry switches to the hexadecimal 
address at which dumping is to start. 

3. Place the program card in the reader. 

4, Press START on the 1442, 

5. Press PROGRAM LOAD on the console. 


Dumping continues until PROGRAM STOP is 
pressed. Press PROGRAM START to resume the 
dump. 


1132 PRINTER CORE DUMP 


This is a self-loading, four-card routine that dumps 
the contents of core storage in hexadecimal format 
on the 1132 Printer (the fourth card is blank). The 
routine is available in card and paper tape. 

Dumping begins at hexadecimal address 00A0 and 
continues to the end of core. Sixteen words per line 
are printed, preceded by the four-digit hexadecimal 
address of the first word of each line. 


Card Operating Procedure 


1, Ready the 1132 printer. 

2. With the console Mode switch set to RUN, press 
IMM STOP and RESET on the console. 

8. Place the dump routine deck in the 1442 card 
read punch hopper. 

4, Press START on the 1442. 

5. Press PROGRAM LOAD on the console. 


Dumping continues until the last 16 words of core 
are addressed and printed. 


The program does not skip to the top of a new page 
to start, nor is page numbering or page overflow pro- 
vided. 


Paper Tape Operating Procedure 


a 


Ready the 1132 printer. 

2. Place the dump from 00A0 tape in the paper tape 
reader so that one of the delete codes beyond the 
program ID in the leader is beneath the read 
starwheels. 

3. Press IMM STOP, RESET, and PROGRAM LOAD 

on the console. 


The output format is the same as described for the 
card routine. 


DISK DUMP ROUTINES 


Two routines are provided which allow the user to 
print out the contents of any disk sector or sectors. 


e Console Printer Disk Dump 
e 1132 Printer Disk Dump 


These routines are available in card and paper 
tape. 


Format 


Each sector printout (320 words) consists of 20 lines 
with 16 four-digit words per line, each word in hexa- 
decimal form. Two sectors are printed on each page, 
each sector preceded by a two-word header. The 
leftmost digit of the first header word is the number 
of sectors remaining to be dumped; the remaining 
three digits show the sector address of the sector 
being dumped. The second header word contains the 
contents of the first word of the sector which is also 
the address of the sector. 


Operating Procedures 


Card 


1, With the console Mode switch set to RUN, press 
IMM STOP and RESET on the console. 


2. Place the desired dump routine (console printer 
or 1132 printer) in the reader hopper. 
Press START on the 1442. 
4, Press PROGRAM LOAD on the console. 
The program is loaded and on 8K systems 

WAITs at location 1C51 (console printer routine), 

or 1D29 (1132 printer routine). For 4K systems, 

the WAIT addresses will be 0C51 and 0D29. 
5. Set the console entry switches as indicated below. 

a. Enter the number of sectors to be dumped 
(in hexadecimal) in console entry switches 
0-3. The maximum number of sectors that 
can be dumped at one time is 15 (switches 
0-3 on); the minimum number is one 
(switches 0-3 off or switch 3 on). 

b. Enter the hexadecimal address of the first 
sector to be dumped in console entry 
switches 4-15 (000 - 657). If an illegal 
sector address is entered, the program 
WAITs at location 0029. Press IMM STOP, 
RESET, and PROGRAM START to return 
the program to location 1C51 or 1D29. The 
correct sector address can then be entered 
in the console entry switches. 

Note that the sector address entered in 
console entry switches 4-15 is a physical 
address, not a logical address. It is there- 
fore possible for the data being dumped to 
be moved up 8, 16, or 24 sectors depending 
on whether the disk has one or more 
(maximum 3) defective cylinders. A dump 
of sector zero will show if there are any 
defective cylinders on the disk. Words one, 
two, and three of sector 0 contain the first 
sector address of any defective cylinders 
found. When there is no defective cylinder, 
these words contain /0658 (see DPIR under 
System Generation Operating Procedures-- 
Card System). In the event that there are 
defective cylinders on the disk, it is the 
user's responsibility to calculate the dis- 
placement in order to locate the desired 
logical record. 

6. Press PROGRAM START to initiate the dump. 


ize) 


Dumping continues until the last sector is printed, 
at which time the printer carriage (if the 1132 is the 
output device) restores to a new page and the program 
WAITs at location 1C51 or 1D29. 

A new sector address and/or number of sectors 
can be entered at any time during execution by press- 
ing IMM STOP, RESET, and PROGRAM START, 
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and then setting the appropriate console entry 
switches. 


Core Image Loader Card ID. The card system con- 
sole printer and 1132 printer disk dump routines are 
each loaded by a core image loader which comprises 
the first six cards of the decks. As card sequence 
numbers are not present on the core image loader 
ecards, the following chart can be used to identify 
these cards. 


CORE IMAGE LOADER 
cee anal ae 
COLUMN __|1 | 2] puy2] Lyy2] be f2} L142] 
Xx 
X Xx x 


Xx 
x X 


] 
2 
3 
4 
5 
6 
7 
8 
9 


Paper Tape 


1. Place the desired dump routine tape (console 
printer or 1132 printer) in the paper tape reader 
so that one of the delete codes beyond the pro- 
gram ID in the leader is beneath the read star- 
wheels. 

2. Press IMM STOP, RESET, and PROGRAM LOAD 
on the console. 

3. The loader (on the front of the tape) will read in 
and the. system will WAIT. 

4. Press PROGRAM START. 


The disk dump program is now loaded and WAITs 
at location 1C51 (console printer routine), or 1D29 
(1132 printer routine). Operating instructions from 
this point are the same as those listed in items 5 
and 6 of the card operating procedures. 





Disk Error Procedure 


Detection of a disk error during a dump operation 
on 8K systems causes a WAIT at location 1C67 
(console printer) or 1D51 (1132 printer). For 4K 
systems, the WAIT is at 0C67 or 0D51. 

To retry the operation, set all console entry 
switches off and press PROGRAM START. If the 
retry is successful, dumping will resume at the 
beginning of the sector that caused the error. 

If the error is to be ignored and the sector 
printed out, make sure that the value of the console 
entry switches is not zero (at least one switch on) 
and press PROGRAM START. 


PAPER TAPE REPRODUCING ROUTINE 


This routine, available only with the paper tape sys- 
tem, is a self-loading paper tape routine that repro- 
duces paper tapes. The routine reads a character 
and punches it with no intermediate conversion. 


Operation 


1, Place the paper tape reproducing routine tape in 
the paper tape reader, positioning the tape so 
that one of the delete codes beyond the ID in the 
leader is beneath the read starwheels. 

2. With the console Mode switch set to RUN, press 
IMM STOP, RESET, and PROGRAM LOAD on 
the console. The reproducing routine is read in 
and WAITs at location 0000. 

38. Remove the reproducing routine tape and place 
the tape to be reproduced in the reader. Place 
blank tape in the tape punch unit and produce 
several inches of delete code leader by holding 
down the DELETE and FEED keys simultane- 
ously. Be sure to release the FEED key first. 

4. Press PROGRAM START to begin the tape repro- 
ducing operation. The routine continues to 
operate until the paper tape reader goes not- 
ready, indicating that there is no more tape to 
be read. The tape reproducing routine then 
WAITs at location 002C. If the paper tape punch 
is not-ready, the tape reproducing routine loops 
between 0027-002A. To restart, press IMM 
STOP, ready the paper tape punch, and press 
PROGRAM START. An unlimited number of 
tapes can be reproduced by this routine. Be 
sure to create a trailer (and leader) of delete 


codes between the output tapes if the tapes are 
to be separated. 
5. If the PROGRAM STOP key is pressed while the 


program is in operation, the routine WAITs at 3. 
location 001D. Press PROGRAM START to con- 
tinue. 


PAPER TAPE UTILITY (PTUTL) 


PTUTL is a paper tape utility program that is loaded 
to disk during system generation and executed by the 
1130 disk monitor system. It accepts input from the 
console printer keyboard or 1134 paper tape reader 
and provides printed output on the console printer 
and/or punched output on the 1055 paper tape punch. 

Using PTUTL, the user can add FORTRAN and 
assembler source records and monitor control 
records to his programs. Records on existing tapes 
can also be altered or deleted. This paper tape 
utility program resides in the user's area on disk 
and is executed by a // XEQ control record. 


Operating Procedure 


A paper tape containing the following records is 
supplied to the user to allow initial program exe- 
cution. 


/{ JOB 
// XEQ PTUTL 
// PAUS 


To load this tape and execute the program, select 
the appropriate initializing procedure listed below and 
continue, 


1. Ifthe monitor supervisor is‘in core: 
a. Place the PTUTL execute tape in the paper 
tape reader. 
b. Press PROGRAM START. 
2. Ifthe monitor supervisor is not in core: 
a. Place the cold start paper tape record in the 
paper tape reader. 
b. Press IMM STOP, RESET, and PROGRAM 
LOAD on the console. 


c. Place the PTUTL execute tape in the paper 
tape reader. 

d. Press PROGRAM START. 
The paper tape utility program is loaded into 
core and then comes to a WAIT at location /0498. 
This wait allows the operator to ready the con- 
sole printer, paper tape reader, and paper tape 
punch, The user should punch a leader of delete 
codes on the paper tape punch. 

At this time, the user can select the desired 
program options by turning on the appropriate 
console entry switches (see Figure 16). 


Console Entry 


Switch On Option 


0 Print record after reading 
1 Read paper tape records from 1134 
2 Accept keyboard input! 
3 Punch paper tape records on 1055 
14 WAIT after punching 
15 WAIT after printing 
All switches 
off Exit to monitor supervisor? 
NOTES: 


1, The keyboard input option uses TYPEO, 
therefore all features of that routine apply 


to PTUTL. 
a. The input record cannot exceed 80 
characters. 


b. Pressing the backspace key cancels the 
last character entered. 

c. Pressing the ERASE FIELD key cancels 
the entire record and allows the user to 
restart. 

d. Pressing the EOF key indicates that the 
record is complete. The keyboard is 
released and the program continues. 

2. Keyboard input will replace the last paper 
tape record read if console entry switch 2 
is turned on prior to pressing PROGRAM 
START. 

3. The test for exit is made just before an 
input record is read; therefore, a convenient 
way to branch out of PTUTL is to perform a 
WAIT after punching the last record desired 
(console entry switch 14 on). Turn off all 
console entry switches and press PROGRAM 
START. Control is returned to the monitor 
supervisor. 
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Paper Tape Not-Ready WAITs 


Condition 


Paper tape 
reader not 
ready 


Paper Tape 
punch not 
ready 


Indication Recovery Procedure 
Program WAITs at 
location /0498 with 
/-0005 in the 
Accumulator 


Ready reader if additional 
tape is to be read. Set the 
console entry switches as 
desired and press PROGRAM 
START. 


Program WAITS at 
location /0498 with 
/0004 in the 
Accumulator 


Ready the paper tape punch 


To re-punch a record 
which was being processed 
when the not-ready occurred, 
set console entry switches 1 
and 2 off (to prevent an- 
other record from being 
read), set switches 3 and 14 
on (punch a record and 
WAIT), and press PROGRAM 
START. After the record is 
punched, return the console 
entry switches to the orig- 
inal configuration and press 
PROGRAM START. 


Example 


Assume that the following records appear on a tape. 


// JOB 

//* (comments) 

// ASM 

// DUP 

Asm, Control Records 
Source Program 


The user now desires to alter the comments 
record, insert a // PAUS record after the comments 
record, and delete the // DUP record. The 
procedure is as follows. 


1, 


2. 


Load and execute PTUTL. The program will 
WAIT at location /0498, 

Load the source tape in the paper tape reader 
and ready the paper tape punch and console 
printer. Remember to make a leader of delete 
codes on the punch, 

Turn on console entry switches 1, 3, and 14. 
Press PROGRAM START. 


and press PROGRAM START. 


10. 


11, 


12% 


13, 


14, 


15. 


16 
17. 


18. 


19; 


20. 


21. 


22. 


23 
24, 


25. 


The // JOB record will be read, reproduced, 
and the program will WAIT. 

Turn on console entry switches 0, 1, 2, 3, 14, 
and 15. 

Press PROGRAM START. 


The comments record in the source tape will be 
read and printed on the console printer. The 
program will WAIT. 

Press PROGRAM START. The Keyboard will be 
selected (PROCEED light on) and the program 
will WAIT. 

Enter the new comments record in the proper 
format. 

Press the EOF key on the keyboard. 

The new comments record will be punched on the 
tape, replacing the old record. The program 
will WAIT. 

Turn off console entry switch 1. Press 
PROGRAM START. The keyboard will be re- 
selected. 

Enter the // PAUS record from the keyboard 
and press EOF. 

Turn off console entry switches 0, 2, and 15. 
Turn on switch 1. Leave switches 3 and 14 on. 
Press PROGRAM START. 

The // ASM record will be read and reproduced 
on the punch. The program will WAIT. 

The next record, // DUP, is to be deleted; there- 
fore, switches 0, 1, and 15 should be set on, all 
other console entry switches should be set off. 
Press PROGRAM START. 

The // DUP record will be read and printed but 
not punched. The program will WAIT. 

Leave the sense switches at the present setting 
and press PROGRAM START. The next record 
on the input tape will be read into the I/O buffer, 
overlaying the // DUP record. 

Turn on console entry switches 1 and 3, all 
others off. 

Press PROGRAM START. 

The remainder of the source tape will be read 
in and reproduced, record for record. 

When the paper tape reader goes not-ready at 
the end of the source tape, the program will 
again WAIT at location /0498. Set all console 
entry switches off and press PROGRAM START. 
Control will return to the monitor supervisor. 
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Figure 16. PTUTL Sense Switch Options 
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APPENDIX J. SAMPLE PROGRAM OUTPUT 


// JOB 
// FOR 


te 


IBM 1130 DISK MONITOR FORTRAN SAMPLE PROGRAM 


*#ONE WORD INTEGERS 

*LIST ALL 

*IOCS (CARDs 1132 PRINTER» DISK) 
*#NAME SAMPL 


TBM 1130 DISK MONITOR FORTRAN SAMPLE PROGRAM 
TBM 1130 DISK MONITOR FORTRAN SAMPLE PROGRAM 


an 


301 
302 
303 
304 
305 
306 
307 
308 
309 


10 


12 


ANNAN 


13 
17 


64 
65 
66 
63 


11 


91 
93 


14 


70 
89 


19 
20 


40 


SIMULTANEOUS EQUATION ROUTINE 
DEFINE FILE 1 (1093209UsINXT) 
DIMENSION A(10910)9X(10)08(10) s¥(10) 
FORMAT (1H1s20X15HINCOMPATIBILITY) 


FORMAT (1H Z20X41HMORE EQUATIONS THAN UNKNOWNS@NO SOLUTIONS) 
FORMAT (1H 20X46HMORE UNKNOWNS THAN EQUATIONS=SEVERAL SOLUTIONS) 


FORMAT (1H 20X15HSOLUTION MATRIX) 
FORMAT(1H 20X8HMATRIX A) 
FORMAT(1H 20X8HMATRIX 8) 

FORMAT (1H 20X10H A@INVERSE) 


FORMAT(1H 20X24HDIAGONAL ELEMENT IS ZERO) 


FORMAT (1H 20X*A@INVERSE TIMES A*) 
M22 


L=3 
READ (M910) 
FORMAT (72H SPACE FOR TITLE 


WRITE (£910) 
FORMAT (6110) 
READ (Mel2)MleM2eLloL2eN1oN2 
Ml = NOe OF ROWS OF A 
M2 © NOe OF COLS OF A 
Ll = NOe OF ROWS OF X 
L2 = NOe OF COLS OF X 
Nl # NOe OF ROWS OF B 
N2 # NOe OF COLS OF B 
FORMAT (7F1004) 
FORMAT (10F1004) 
TF (N2—1)63 964963 
IF (L2=-1)63965963 
IF (L1=#M2)63 66963 
IF (M1°N1)63011963 
WRITE (49301) 
GO TO 2 
N®M1 
N=M2 
TF (M1—=M2) 91914093 
WRITE (L9302) 
GO TO 2 
WRITE (£0303) 
GO TO 2 
WRITE (10305) 
DO 70 I#1leN 
READ (Mol3)I(A(T oJ) oJeloN) 
WRITE (Lol7TICACT oJ) eJ#1eN) 
CONTINUE 
FORMAT (F10e4) 
WRITE (19306) 
READ (MsB9)(BI( I) oIT#leN) 
WRITE (L989)(8C1) oIa10N) 
PRESERVE THE ORIGINAL MATRIX ON DISK 
DO 19 I2#1ls6N 
WRITE (1°I) (ACJoT)s JeloNn) 
INVERSION OF A 
DO 120 KzleN 
OzA(KoK) 
IF (0) 402200040 
A(K9K)#1¢0 


DKSAMO01 
DKSAMO02 


PAGE 01 
DKSAMO003 
OKSAMO04 
DKSAMO05 
OKSAMO006 
DKSAMOO7 


PAGE 02 
DKSAMOO8 
DKSAMO0O9 
OKSAMO10 
DKSAMO11 
OKSAMO012 
OKSAMO13 
DKSAMO14 
DKSAMO15 
DKSAMO16 
DKSAMO17 
DKSAMO18 
OKSAMO19 
DKSAMO020 
DKSAMO21 
DKSAMO22 
DKSAMO23 
DKSAM024 
DKSAMO25 
DKSAMO026 
DKSAMO27 
OKSAMO28 
DKSAM029 
DKSAMO30 
DKSAMO31 
DKSAMO32 
DKSAMO33 
DKSAMQ34 
DKSAMO35 
DKSAMO036 
DKSAMO37 
OKSAMO38 
DKSAMO39 
DKSAM040 
DKSAM041 
DKSAM042 
DKSAM043 
DKSAMO044 
OKSAMO435 
DKSAM046 
DKSAMO47 
DKSAMO48 
DKSAM049 
DKSAMO50 
OKSAMO51 
OKSAMO52 
DKSAMO53 
DKSAMO54 
DKSAMO55 
DKSAMO56 
DKSAM057 
DKSAMO58 
OKSAMO59 
DKSAMO60 
DKSAMO61 
OKSAM062 
OKSAM063 
DKSAM064 
DKSAMO65 
OKSAM066 


1 
1 
1 


1 
1 


2 


2 


2 


1 
1 


VAR 
A 
ul 


UNR 
20 


STA 
30 
12 
93 
13 
2 


FEA 
ON 
10 


CAL 
FA 
CA 


REA 


INT 


COR 
co 


END 


18M 1130 DISK MONITOR FORTRAN SAMPLE PROGRAM 
§0 DO 60 J#leN 
60 A(KeJIaA(KeJ)/0 
IF (K=@N) 8091309130 
80 IKek+l 
DO 120 IsIkKoeNn 
OmA( 19K) 
A(IoK) 2000 
00 120 J=loeN 
20 A(T oJ tACT osm (DEA(KoJ)) 
BACK SOLUTION 
30 IK=Ne=1 
DO 180 KeleIKk 
40 Il*K+1 
DO 180 IalloNn 
DeA(Koel) 
A(Ko1)2000 
70 DO 180 J#leN 
BO Al(KeJ) #tA(KeJI@ (DAC To I)) 
GO TO 202 
OO WRITE (19308) 
GO TO 2 
PRINT INVERSE 
O2 WRITE (L307) 
DO 201 I#leN 
WRITE (Loel7ICA(IoJ) sJeloNn) 
O01 CONTINUE 
WRITE (L9309) 
COMPUTE AND PRINT AwWINVERSE TIMES A 
DO 123 J2leN 
RETRIEVE ORIGINAL BY COLUMNS 
READ (1'°5) (X¢M)s M@lsN) 
DO 122 I=lsN 
Y(I) = 000 
DO 122 K # leN 
22 YCT) @ YCDDFACT oK)#X(K) 
23 WRITE (Lol?) (YCI)9 ITeleN) 
DO 21 I#loeN 
X(1) #00 
OO 21 K=zleN 
21 XET EXCL FACT oK)#BCK) 
WRITE (19304) 
WRITE (Lo89) (X(T) oIT"19N) 
2 CALL EXIT 
END 


18M 1130 DISK MONITOR FORTRAN SAMPLE PROGRAM 
TABLE ALLOCATIONS 


eOO0CE X s00E2 8B 200F6 Y z2010A D 
20113 L2 20114 Nl 20115 N2 #0116 N 

EFERENCED STATEMENTS 

50 140 170 

TEMENT ALLOCATIONS 

1 #0127 302 20134 303 2014E 304 =@16A 305 
20108 13 #0108 17 =O1DE 89 2OlE1 64 
z024A 14 20250 70 20289 19 202C6 20 

O 20374 140 #037€ 170 20399 180 #039D 200 
20406 

TURES SUPPORTED 

E WORD INTEGERS 

cs 

LED SUBPROGRAMS 

DOX FMPYX FOIV FLD FLDX FSTO FSTOX 


ROZ PRNTZ SOFIO SDRED SDWRT SOCOM SDFX 


L CONSTANTS 
1OO0000E 0120120 eQOOQQ00E 0020122 


EGER CONSTANTS 
220124 320125 120126 


E REQUIREMENTS FOR SAMPL 
MMON 0 VARIABLES 288 PROGRAM 952 


OF COMPILATION 


#010C 
20117 


20177 
2021C 
=02E7 
203CF 


INXT 


306 
65 
40 
202 


FSBRX 


2010E 
#0118 


#0180 
20222 
202F8 
20305 


SRED 


PAGE 03 
DKSAM067 
OKSAMO068 
OKSAM069 
OKSAMO70 
DKSAMO71 
OKSAMO72 
DKSAMO73 
OKSAMO74 
OKSAMO75 
DKSAMO76 
DKSAMO77 
DKSAMO78 
OKSAMO79 
DKSAMO80 
DKSAMO861 
DKSAMO082 
DKSAM083 
OKSAMO84 
DKSAMUB5 
OKSAMO86 
OKSAMO87 
DKSAMO88 
OKSAMO89 
DKSAMO90 
OKSAMO91 
DKSAMO92 
DKSAMO093 
OKSAMO94 
DKSAMO95 
DKSAMO96 
DKSAMO97 
DKSAMO98 
OKSAMO99 
DKSAM100 
OKSAM101 
DKSAM102 
DKSAM103 
DKSAM104 
DKSAM105 
DKSAM106 
DKSAM107 
DKSAM108 
DKSAM109 
DKSAM110 


PAGE 04 


M sOlOF L 
J 20119 K 


307 20189 308 
66 20228 63 
50 #0306 60 
201 =#03F6 122 


SWRT SCOMP 


20110 
sO1l1A 


#0193 
#022E 
2030A 
20420 


SFIO 


M1 
IK 


309 
11 


123 


SIOFX 


#0111 
#0118 


201A4 
20234 
20325 
2045C 


SIO! 


10 
91 
120 
21 


Appendix J. Sample Program Output 


#0112 
2011¢ 


#20162 
20244 
20344 
2048C 


$uasc 


85 


86 


// XEQ 


FILES ALLOCATION 
1 016C OO0A 


L 


STORAGE ALLOCATION 


R 47 OFT71 (HEX) WORDS AVAILABLE 


O3A5 (HEX) 
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402150 
=201200 
121220 


302160 
102470 
203456 


002915 
001631 
-020283 


009999 
020000 
=020000 


069321 
102654 
007429 


LIBF TRANSFER=VECTOR 


EBCTB 
HOLTB 
GETAD 
NORM 
XMDS 
FARC 
HOLEZ 
IF IX 
FLOAT 
FADDX 
SDRED 
FSBRX 
FMPYX 
FOIV 
FSTOX 
FLOX 
SDCOM 
SOFX 
SOWRT 
STOFX 
SUBSC 
Sto! 
SCOMP 
SWRT 
SRED 
FSTO 
FLO 
PRNTZ 
CARDZ 
SFIO 
SDFIO 
DISKZ 


1015 
OFDF 
OF9E 
OF 74 
OF58 
OF 36 
OFOO 
OED8 
OECE 
0E79 
06cOo 
0E50 
OEIC 
ODCA 
OD72 
OO8E 
O6E4 
0682 
O70E 
0915 
ODA8 
0919 
0901 
O8Fs 
0928 
0076 
0092 
occo 
0Cc7B 
09cD 
0713 
OOF 4 


SYSTEM ROUTINES 


IL$02 


1019 
IS THE EXECUTION ADDRe 


MATRIX A 


=102120 161080 
305050 -166320 
1.3130 309860 


MATRIX B 


A~INVERSE 


020833 =0200467 
003836 001118 
001029 0¢3008 


AmINVERSE TIMES A 


020000 020000 
009999 020000 
020000 100000 


SOLUTION MATRIX 


OKSAM111 


4/ 308 

// ASM 

#LIST 

®PRINT SYMBOL TABLE 


COMPUTE THE SQUARE ROOT OF 64 


0000 0 C030 BEGIN LO D64 
0001 20 06406063 LIBF FLOAT INTEGER TO FLOATING PTe 
0002 30 06898640 CALL FSQR FLOATING PTe SQRTe 
0004 20 091899C0 LIBF IFIX FLOATING PTe TO INTEGER 
0005 0 1008 SLA 8 
* MASK TO BUILD EBCDIC INTEGER 
* RESULT AND EBCDIC BLANK IN WORD1Le 
0006 0 E829 OR MASK 
0007 0 0018 STO WORD1 
* CONVERT MESSAGE FROM EBCDIC 
* TO ROTATE/TILT CODE. 
0008 20 05097663 LIBF EBPRT 
0009 0 0000 DC 0 
000A 1 0023 oc WORD1 
000B 1 0015 DC TYPE61 
000C O OO1A oc 26 
000D 20 23A17170 LIBF TYPEO TYPE MESSAGE 
OOOE 0 2000 DC 42000 
OCOF 1 0014 le TYPE 
0010 20 23A17170 LIBF TYPEO WAIT FOR TYPING COMPLETE 
0011 0 0000 oC 
0012 0 70FD MDX a3 
0013 0 6038 EXIT RETURN TO MONITOR CONTROL 
0014 0 OO0E TYPE OC 14 
0015 0000 BSS 13 
0022 0 8181 oC /8181 
0023 0 0000 WORD1 DC tat 
0024 0018 Esc eIS THE SQUARE ROOT OF 64.6 
0030 0 F040 MASK DC /F040 
0031 0 0040 D6&4 DC 64 
0032 0000 END BEGIN 


SYMBOL TABLE 


BEGIN 6000 D64 0031 MASK 0030 TYPE 0014 WORD1 0023 


NO ERRORS IN ABOVE ASSEMBLYe 


Appendix J. Sample Program Output 


SMASMOO1 
SMASMOO2 
SMASMO0O03 
SMASMO004 


PAGE 1 
SMASMOO06 
SMASMO007 
SMASMOO8 
SMASMO09 
SMASMO10 
SMASMO11 
SMASMO12 
SMASMO13 
SMASM014 
SMASMO15 
SMASMO16 
SMASMO17 
SMASMO18 
SMASMO19 
SMASMO020 
SMASMO21 
SMASMO022 
SMASM0 23 
SMASMO 24 
SMASMO25 
SMASMO 26 
SMASM027 
SMASMO028 
SMASMO29 
SMASMO30 
SMASMO31 
SMASMO32 
SMASMO033 
SMASMO34 
SMASMO35 
SMASMO036 


87 


// XEQ L SMASMO37 
R 47 1907 (HEX) WORDS AVAILABLE 

CALL TRANSFER VECTOR 

FSQR 020¢C 

LIBF TRANSFER@VECTOR 


FARC 066C 
XMDS 0650 
HOLL 0600 
PRTY 0580 
EBPA 0560 
FADO O4AF 
FOIV 050E 
FLO 045A 
FADDX 0485 
FMPYX 0470 
FSTO 043E 
FGETP 0424 
NORM O3FA 
TYPEO 0202 
EBPRT 026C 
IFIX 0244 
FLOAT O1F4 
DISKZ OOF4S 


SYSTEM ROUTINES 


TLS04 0691 
ILS02 O6AD 


O1C2 (HEX) IS THE EXECUTION ADORe 


Program Output on Console Printer 


8 IS THE SQUARE ROOT OF 64 
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Absolute program: A program which, although in 
Disk System format, has been written in such a 
way that is can be executed from only one core 
location. 


Assembler core load: A core load which was built 
from a mainline written in Assembly Language. 


CALL routine: A routine which must be referenced 
with a CALL statement. The type codes for 
routines in this category are 4 and 6. 


CALL TV: The transfer vector through which CALL 
routines are entered at execution time. See the 
section on the Loader for a description of this TV. 


CIB: (the Core Image Buffer) The buffer on which 
most of the first 4000 words of core are saved. 
Although the CIB occupies two cylinders, the 
last two sectors are not used. See the section on 
the Loader for a description of the CIB and its use. 


Cold Start Routine: The routine which initializes the 
1130 Disk System Monitor by reading down from 
the disk the Skeleton Supervisor. 


COMMA (the Core Communication Area): The part 
of core which is reserved for the work areas and 
parameters which are required by the Monitor 
programs. In general, a parameter is found in 
COMMA if it is required by two or more Monitor 
Programs or if it is passed from one Monitor 
Program to another. COMMA is initialized from 
DCOM by the Cold Start Routine and at the beginning 
of each JOB. 


Control Record: One of the records (card or paper 
tape) which directs the activities of the 1130 
Monitor System. For example, //DUP is a 
Monitor control record that directs the Monitor 
to initialize DUP; *DUMPLET is a DUP control 
record directing DUP to initialize the DUMPLET 
program; *EXTENDED PRECISION is a FORTRAN 
control record directing the compiler to allot 
three words instead of two for the storage of data 
variables. 


Core Image format: Sometimes abbreviated CI 
format. It is the format in which whole core 
loads are stored on the disk prior to execution. 


APPENDIX K. GLOSSARY 


Core Image Header Record: A part of a core load 
stored in Core Image format. It is actually the 
last 15 words of the format. Among these 15 
words are the ITV and the setting for index 
register 3. 


Core Image program: A mainline program which 
has been converted, along with all of its required 
subroutines, to CI format. In other words, it 
is a core load. 


Core load: Synonymous with the term object pro- 
gram, which is comprised of the ITV, the object- 
time TV, the information contained in the Core 
Image Header Record, the in-core code, and 
all LOCALs, NOCALs, and SOCALs. 


Cylinderize: The process of rounding a disk block/ 
sector address up to the disk block/sector ad- 
dress of the next cylinder boundary. 


Data block: A group of words consisting of a data 
header, data words, and Indicator Words for a 
routine in Disk System format. A new data 
block is created for every data break. (A data 
break occurs whenever there is an ORG, BSS, 
or BES statement, at the end of each record, 
and whenever a new sector is required to store 
the words comprising a routine.) 


Data break: Sometimes referred to as a break in 
sequence. See ''Data block" for a definition of 
this term. 


Data file: An area in either the User Area or the 
Fixed Area in which data is stored. 


Data format: The format in which a Data file is 
stored in either the User Area or the Fixed Area. 


Data group: A group of not more than nine data 
words of a routine in Disk System format. In this 
format every such group has as its first word an 
associated Indicator Word. Normally a data 
group consists of eight data words plus its In- 
dicator Word; but, if the data block of which the 
data group is a part contains a number of 
data words which is not a multiple of eight, then 
the last data group will contain less than nine 
data words. 
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Data header: The first pair of words in a data block 


for a routine in Disk System format. The first 
word contains the loading address of the data 
block, the second the total number of words 
contained in the data block. 


DCOM (the Disk Communications Area): The disk 


sector which contains the work areas and par- 
ameters for the Monitor Programs. It is used 
to initialize COMMA by the Cold Start Routine 
and at the beginning of each JOB (see "COMMA"). 


Disk block: A 20-word segment of a disk sector. 


Thus, sixteen disk blocks comprise each sector. 
The disk block is the smallest distinguishable 


ILS (an Interrupt Level Subroutine): A routine which 


services all interrupts on a given level; i.e., it 
determines which device on a given level caused 
the interrupt and branches to a servicing routine 
(ISS) for processing of that interrupt. After this 
processing is complete, control is returned to 
the ILS, which turns off the interrupt. 


Indicator Word: Tells which of the following data 
words should be incremented (relocated) when 
relocating a routine in Disk System format. It 
also tells which are the names in LIBF, CALL, 


and DSA statements. Routines which are in Disk 


System format all contain Indicator Words, pre- 


ceding every eight data words. Each pair of bits 


in the Indicator Word is associated with one of 


increment for DSF programs. Thus the Monitor 
System permits packing of DSF programs at 
smaller intervals than the hardware would other- 
wise allow. The disk block is also referred to 
elsewhere as the ''disk byte". 


the following data words, the first pair withthe  , 
first data word, etc. 


Instruction address register: Also called the I- 


counter. It is the register in the 1130 which 
Disk System format: Sometimes abbreviated DSF. contains the address of the next sequential { 
It is the format in which mainlines and subroutines instruction. 


are stored on the disk as separate entities. It 
is not possible to execute a program in DSF; 
it must first be converted to Core Image format. 


In-core routine: A part of a given core load which 
remains in core storage during the entire execu- 
tion of the core load. ILSs are always in-core 

Disk System format program: A program which is routines, whereas LOCALs and SOCALSs never 
in Disk System format. It is sometimes called a are. 

DSF program. 

ISS (an Interrupt Service Subroutine): A routine which 
is associated with one or more of the six levels 
of interrupt; i.e., CARDO, which causes inter- 
rupts on two levels, is such a routine. 


Entry point: A term which may give rise to confusion 
unless the reader is careful to note the context 
in which this term appears. Under various 
conditions it is used to denote (1). the symbolic 
address (name) of a place at which a subroutine 
or a Monitor Program is entered, (2) the absolute 
core address at which a subroutine or mainline 
is to be entered, and (3) the address, relative to 
the address of the first word of the subroutine, 
at which it is to be entered. 


Job: A group of tasks (subjobs) which are to be per- 
formed by the 1130 Disk Monitor System and 
which are interdependent; i.e., the successful 
execution of any given subjob (following the first 
one) depends upon the successful execution of 
at least one of those which precedes it. See the 
section on the Supervisor for examples. 

Fixed area: The area on disk in which core loads 
and data files are stored if it is desired that they 
always occupy the same sectors. No routines 
in Disk System format may be stored in this area. 


LET/FLET (the Location Equivalence Table for the | 
User Area/ the Location Equivalence Table for 
the Fixed Area): The table through which the 
disk addresses of programs and data files stored 
in the User Area/Fixed Area may be found. LET 
occupies the cylinder following the Supervisor 
Control Record Area. If a Fixed Area has been 
defined, FLET occupies cylinder 34 (sectors 
272-279); otherwise, there is no FLET. 


FORTRAN core load: A core load which was built 
from a mainline written in FORTRAN. 


IBM Systems area: That part of disk storage which 


is occupied by the Monitor Programs, i.e., 
cylinders 0-33 (sectors 0-271). 
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LIBF routine. A routine which must be referenced 
with an. LIBF statement. The type codes for 
routines in this category are 3 and 5. 


LIBF TV: The transfer vector through which LIBF 
routines are entered at execution time. See the 
section on the Loader for a description of this TV. 


Loading address: The address at which a routine or 
data block is to begin. . In the latter case the ad- 
dress is that of an absolute core location, while 
in the former it is either absolute or relative, 
depending upon whether the routine is absolute 
or relocatable, respectively. 


LOCAL (load-on-call routine): That part of an object 
program which is not always in core. It is read 
from Working Storage into a special overlay area 
in core only when it is referenced in the object 
program. LOCALs, which are specified for any 
given execution by the User, are a means of 
gaining core storage at the expense of execution 
time. The Loader constructs the LOCALs and all 
linkages to and from them. 


Location assignment counter: A counter maintained 
in the Assembler program for assigning addresses 
to the instructions it assembles. 


Modified EBCDIC code: A six-bit code used internally 
by the Monitor programs. In converting from 
EBCDIC to Modified EBCDIC, the leftmost two 
bits are dropped. 


Modified Polish Notation: The rearrangement of oper- 
ators and operands (i.e., an operator and two 
operands) into the triple form required by the 
FORTRAN Compiler to generate the code neces- 
sary to perform arithmetic operations. 


Monitor Program: One of the following parts of the 
1130 Disk System Monitor: Supervisor (SUP), 
Disk Utility Program (DUP), Assembly Program 
(ASM), and FORTRAN Compiler (FOR). 


NOCAL (a load-although-not-called routine): A 
routine which is to be included in an object 
program although it is never referenced in that 
program by an LIBF or CALL statement. De- 
bugging aids such as a trace routine or a dump 
routine fall into this category. 


Object program: Synonymous with the term core 
load. 


Object-time TV: A collection of both the LIBF TV 
and the CALL TV. 


Principal I/O device: The 1442 Card Read/Punch if 
one is present; the 1134 Paper Tape Reader/ 
1055 Paper Tape Punch otherwise. 


Principal print device: Sometimes referred to as 
the Principal Printer. It is the 1132 Printer if 
one is present; the Console Printer otherwise. 


Program header record: A part of a routine stored 
in Disk System format. Its contents vary with 
the type of the routine with which it is associated. 
It contains the information necessary, along with 
information from LET, to identify the routine, 
to describe its properties, and to convert it from 
Disk System format to a part of a core load. 


Relocatable program: A program which can be exe- 
cuted from any core location. Such a program is 
stored on the disk in Disk System format. 


Relocation: The process of adding a relocation factor 
to address constants and to those two-word 
instructions whose second words are not (1) 
invariant quantities, (2) absolute core addresses, 
or (3) symbols defined as absolute core addresses. 
The relocation factor for any program is the 
absolute core address at which the first word of 
that program is found. 


Relocation indicator: The second bit in a pair of bits 
in an Indicator Word. If the data word with which 
this bit is associated is not an LIBF, CALL, or 
DSA name, then it indicates whether or not to 
increment (relocate) the data word. If the re- 
location indicator is set to 1, the word is to be 
relocated. 


Sectorize: The process of rounding a disk block 
address up to the disk block address of the next 
sector boundary. 


Skeleton supervisor: That part of the Supervisor 
which is always in core (except during the execu- 
tion of FORTRAN core loads) and which is, 
essentially, the logic necessary to process CALL 
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EXIT and CALL LINK statements. Together with 
COMMA it occupies core locations 38, )-144, 9: 
SOCAL (a System Overlay to be loaded-on-call): One 
of three overlays automatically prepared by the 
Loader under certain conditions when a core 
load is too large to fit into core storage. See 
the section on the Loader for an explanation. 


Subroutine: Used in the 1130 Disk Monitor System 
interchangeably with the term subprograms, 
routine, and program. Any distinctions between 
these terms will have to be inferred from the 
context. 


Supervisor control record area: The area in which 
the Supervisor Control Records are written. 
This area is the cylinder following the CIB. 

The first two sectors are reserved for *LOCAL 
records, the next two for *NOCAL records and 
the next two for *FILES records. The last two 
sectors in this cylinder are not utilized. See 
the Supervisor section for the formats of these 
records. 


The Monitor: Refers to the 1130 Disk System 
Monitor. 


User area: The area on the disk in which all routines 
in Disk System format are found. Core loads 
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(i.e., programs in Core Image format) and Data 
files may also be stored in this area. All IBM- 
supplied routines are found here, since they are 
stored in Disk System format. This area begins 
at the cylinder following LET and occupies as 
many sectors as are required to store the rou- 
tines and files residing there. 


User programs: Are mainlines and subroutines 
which have been written by the user. 


User storage: That part of disk storage which is 
neither Working Storage nor the IBM Area. 
It begins at cylinder 34 (sector 272), which 
would be the beginning of the CIB unless a 
Fixed Area is defined. In this case FLET 
would occupy cylinder 34 (sectors 272-279), 
the Fixed Area would begin at cylinder 35 
(sector 280), and the CIB would occupy the first 
two cylinders following the Fixed Area, the 
length of which is defined by the user. 


Working storage: The area on disk immediately fol- 
lowing the last sector occupied by the User 
Area. This is the only one of the three major 
divisions of disk storage (IBM Area, User 
Storage, Working Storage) which does not begin 
at a cylinder boundary. 


XR1, XR2, XR38: The acronyms for index registers 
1, 2, and 3, respectively. 


APPENDIX L, DECIMAL AND HEXADECIMAL DISK ADDRESSES 








SECTOR SECTOR CYLINDER CYLINDER SECTOR SECTOR CYLINDER CYLINDER 
ADDRESS ADDRESS ADDRESS ADDRESS ADDRESS ADDRESS ADDRESS ADDRESS 
BASE 10 BASE 16 BASE 10 BASE 16 BASE 10 BASE 16 BASE 10 BASE 16 
+00000 0000 +00000 0000 +00800 0320 +00100 0064 
+00008 0008 +00001 0001 +00808 0328 +00101 0065 
+00016 0010 +00002 0002 +00816 0330 +00102 0066 
+00024 0018 +00003 0003 +00824 0338 +00103 0067 
+00032 0020 +00004 0004 +00832 0340 +00104 0068 
+00040 0028 +00005 0005 +00840 0348 +00105 0069 
+00048 0030 +00006 0006 +00848 0350 +00106 006A 
+00056 0038 +00007 0007 +00856 0358 +00107 006B 
+00064 0040 +00008 0008 +00864 0360 +00108 006C 
+00072 0048 +00009 0009 +00872 0368 +00109 006D 
+00080 0050 +00010 000A +00880 0370 +00110 OO6E 
+00088 0058 +00011 000B +00888 0378 +00111 O06F 
+00096 0060 +00012 000C +00896 0380 +00112 0070 
+00104 0068 +00013 000D +00904 0388 +00113 0071 
+00112 0070 +00014 OOOE +00912 0390 +00114 0072 
+00120 0078 +00015 OOOF +00920 0398 +00115 0073 
+00128 0080 +00016 0010 +00928 03A0 +00116 0074 
+00136 0088 +00017 0011 +00936 03A8 +00117 0075 
+00144 0090 +00018 0012 +00944 03B0 +00118 0076 
+00152 0098 +00019 0013 +00952 03B8 +00119 0077 
+00160 00AO +00020 0014 +00960 03c0 +00120 0078 
+00168 00A8 +00021 0015 +00968 03C8 +00121 0079 
+00176 00BO +00022 0016 +00976 03D0 +00122 007A 
+00184 00B8 +00023 0017 +00984 03D8 +00123 007B 
+00192 o0co +00024 0018 +00992 03E0 +00124 007C 
+00200 00C8 +00025 0019 +01000 O3E8 +00125 007D 
+00208 00D0 +00026 OO1A +01008 03F0 +00126 O07E 
+00216 00D8 +00027 001B +01016 O3F8 +00127 007F 
+00224 OOEO +00028 O01C +01024 0400 +00128 0080 
+00232 OOE8 +00029 001D +01032 0408 +00129 0081 
+00240 OOFO +00030 OOTE +01040 0410 +00130 0082 
+00248 OOF8 +00031 OO1F +01048 0418 +0013] 0083 
+00256 0100 +00032 0020 +01056 0420 +00132 0084 
+00264 0108 +00033 0021 +01064 0428 +00133 0085 
+00272 0110 +00034 0022 401072 0430 +00134 0086 
+00280 0118 +00035 0023 +01080 0438 +00135 0087 
+00288 0120 +00036 0024 +01088 0440 +00136 0088 
+00296 0128 +00037 0025 +01096 0448 +00137 0089 
+00304 0130 +00038 0026 +01104 0450 +00138 008A 
+00312 0138 +00039 0027 +01112 0458 +00139 008B 
+00320 0140 +00040 0028 +01120 0460 +00140 008C 
+00328 0148 +0004] 0029 +01128 0468 +0014] 008D 
+00336 0150 +00042 002A +01136 0470 +00142 O08E 
+00344 0158 +00043 002B +01144 0478 +00143 SO8F 
+00352 0160 +00044 002C 401152 0480 +00144 0090 
+00360 0168 +00045 002D +01160 0488 +00145 0091 
+00368 0170 +00046 002E +01168 0490 +00146 0092 
+00376 0178 +00047 002F +01176 0498 +00147 0093 
+00384 0180 +00048 0030 +01184 04A0 +00148 0094 
+00392 0188 +00049 0031 +01192 04A8 +00149 0095 
+00400 0190 +00050 0032 +01200 04B0 +00150 0096 
+00408 0198 +00051 0033 +01208 04B8 +00151 0097 
+00416 O1A0 +00052 0034 +01216 04C0 +00152 0098 
+00424 O1A8 +00053 0035 +01224 04C8 +00153 0099 
+00432 01B0 +00054 0036 +01232 04D0 +00154 009A 
+00440 O1B8 +00055 0037 +01240 04D8 +00155 009B 
+00448 O1co +00056 0038 +01248 04E0 +00156 009C 
+00456 01Cc8 +00057 0039 +01256 04E8 +00157 009D 
+00464 01D0 +00058 003A 401264 O4FO +00158 OO9E 
+00472 01D8 +00059 003B +01272 O4F8 +00159 OO9F 
+00480 O1E0 +00060 003C +01280 0500 +00160 OOAO 
+00488 O1E8 +00061 003D +01288 0508 +0016] 00A1 
+00496 O1FO +00062 O03E +01296 0510 400162 00A2 
+00504 O1F8 +00063 003F +01304 0518 +00163 00A3 
+00512 0200 +00064 0040 +01312 0520 +00164 O0A4 
+00520 0208 +00065 0041 +01320 0528 +00165 0OA5 
+00528 0210 +00066 0042 +01328 0530 +00166 O00AS 
+00536 0218 +00067 0043 +01336 0538 +00167 O0A7 
+00544 0220 +00068 0044 +01344 0540 +00168 O0A8 
+00552 0228 +0M69 0045 +01352 0548 +00169 OOA? 
+00560 0230 +0570 0046 +01360 0550 +00170 OOAA 
+00568 0238 +00071 0047 +01368 0558 +0017] OOAB 
+00576 0240 +00072 0048 +01276 0560 400172 OOAC 
+00584 0248 +00073 0049 +01384 0568 +00173 OOAD 
+00592 0250 +00074 004A +01392 0570 +00174 OOAE 
+00600 0258 +00075 004B +01400 0578 +00175 OOAF 
+00608 0260 +00076 004C +01408 0580 +00176 O0BO 
+00616 0268 +00077 004D +01416 0588 +00177 0081 
+00624 0270 +00078 O04E +01424 0590 +00178 00B2 
+00632 0278 +00079 004F +01432 0598 +00179 00B3 
+00640 0280 +00080 0050 +01440 05A0 +00180 00B4 
+00648 0288 +00081 0051 +01448 05A8 +00181 00B5 
+00656 0290 +00082 0052 +01456 0580 +00182 OOB6é 
+00664 0298 +00083 0053 +01464 O5B8 +00183 00B7 
+00672 02A0 +00084 0054 +01472 05C0 +00184 00B8 
+00680 02A8 +00085 0055 +01480 05C8 +00185 00B9 
+00688 02B0 +00086 0056 +01488 05D0 +00186 OOBA 
+00696 02B8 +00087 0057 401496 05D8 +00187 00BB 
+00704 02C0 +00088 0058 +01504 O5E0 +00188 OOBC 
+00712 02C8 +00089 0059 +01512 O5E8 +00189 OOBD 
+00720 02D0 +00090 005A +01520 O5FO +00190 OOBE 
+00728 02D8 +00091 005B +01528 O5F8 +00191 OOBF 
+00736 02E0 +00092 005C +01536 0600 +00192 00CcO 
+00744 02E8 +00093 005D +01544 0608 +00193 00Cc1 
+00752 02FO +00094 O05E +01552 0610 400194 00c2 
+00760 02F8 +00095 O05F +01560 0618 +00195 00C3 
+00768 0300 +00096 0060 +01568 0620 +00196 00c4 
+00776 0308 +00097 0061 +01576 0628 +00197 00Cc5 
+00784 0310 +00098 0062 +01584 0630 +00198 00C6 
+00792 0318 +00099 0063 +01592 0638 +00199 00C7 
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